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1. INTRODUCTION 


The availability of earth-orbiting laboratories makes possible 
experiments that would be difficult on earth. One area for which this is 
true is the study of cloud droplets. In nature, the collisions and 
coalescence of these droplets brings rain in warm clouds. In the 
laboratory, the small size of these droplets, say around 20 microns, 
makes, them elusive objects for study. The slightest air current or 
electric charge sends them swirling about. Their rate of fall, say 
around 1 cm sec“l, is fast enough to prevent more than hurried 
examination in a reasonably sized instrument. Under low gravity 
conditions the pace slows down. It becomes practical to do the 
experiment of placing droplet A above droplet B so that A overtakes and 
collides with B. In earth orbit there is a convenient source of low 
gravity generated by rotating the apparatus to give centrifugal force. 
It may be controlled by changing the rate of rotation or by moving away 
or towards the center of rotation. Another advantage is that one may use 
larger droplets. The Reynolds number of a falling droplet varies with 
the gravitational acceleration and with the cube of the droplet radius. 
Thus, in a gravitational field of 10~ 3 g one may model terrestrial 
conditions with droplets 10 times larger. These drops will fall only a 
tenth as fast as their earth-side analogs. 

The interest in these drops arises because of the role they play in 
rain formation in warm clouds and in the formation of larger cloud drops 
able to play a role in ice and water collision processes to initiate 
precipitation in supercooled clouds . . . Appendix 1 describes the 
meteorological background of the experiment and Appendix 2 is the 
original conference paper on this subject. 
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This discussion relates to the work actually completed under this 
contract. Reference will be made to the Appendices for past project 
reports describing particular details of the work as they are discussed. 

One basic design has been investigated in the project. The 
experimental chamber is basically a long tube rotated about an axis 
perpendicular to its length (See Appendix 3). Droplets are injected by 
some means such as a vibrating needle. The injection velocity is rapidly 
lost, leaving the droplets near a fixed point in the chamber. The 
conditions in the tube are controlled to prevent the droplets from 
evaporating appreciably during the experiment. Also condensation on the 
optics, etc. must be avoided. The droplets are injected near the center 
of rotation. Near this point droplet motion will be very slow, allowing 
time to examine and align the droplets. When the droplets have been 
positioned properly, the tube is shifted along its length to bring the 
droplets out to a fixed distance from the axis of rotation. Then the 
tube is shifted at a rate to counteract fall of the lighter droplet. 
This droplet sits at a fixed distance and feels a fixed gravity. The 
heavier droplet has been arranged so that it will pass near the other 
droplet for 'a collision or close encounter. The rotation and other 
motions of the apparatus are controlled using stepping motors. It is 
important that the control of these movements be done accurately and 
continually. This can only be done using a computer. In fact every 
effort should be made to do all control with a computer. The most an 
operator need do is provide a few' measurements of droplet locations. 
There is no need to touch the droplets to move them about. By moving the 
mass of air in which they reside, the droplets may be manipulated. For 
example a cylinder may be inserted into the chamber to enclose the 
droplets. This may be done without creating enough turbulence to disturb 
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the droplets. This "squirrel cage" can be rotated to realign the 
droplets within (See Appendix 4, 17- February 1976 , Appendix 5, 15 March 
1976) . 

2. THE TOOLS USED IN THIS INVESTIGATION 

Much of the work done under this contract was numerical simulations 
on the University of Nevada timesharing system and on a Lockheed MAC-16 
minicomputer (Appendix 6, 1 June 1976). The University system was used 
mainly to assemble the MAC-16 programs and to try out ideas before the 
MAC-16 system was developed. A large set of software for doing realtime 
simulations was written for the MAC-16. This included everything from 
floating point addition to a diskette based operating system for the 
MAC-16 fortran compiler. The MAC-16 has 8K of memory, multiplexer 
channels, incremental plotter, Tektronix 4014-1 CRT and a dual diskette 
drive. The MAC-16 was to model the experiment in realtime. That is, the 
simulated droplets would move just as fast as real ones would. The 
available floating point software was far too slow to keep up with the 
necessary amount of computation. So a whole new package of addition, 
subtraction, sine, cosine, etc. was written which kept fewer bits of 
precision but was quite fast. These pieces were combined into a 
simulator which displays droplet dynamics on the CRT screen. The 
simulator was used to show how the various strategies of operation would 
actually work. As a next stage of software development it was planned to 
interface the simulator to fortran language operation. Thus far all the 
operating strategies have been tediously coded in machine language. The 
testing of new ideas often became buried under endless rounds of 
debugging. A diskette operating system for running the Lockheed editor, 
assembler, and fortran compiler has been developed. Though primitive by 
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modern standards, it fits in the limited memory space of the MAC-16 (8 K 
words) . The next stage in software development would be to convert the 
simulator into an alternate fortran runtime library. This would make the 
whole package natural and simple to use. 

3. A CLOSER VIEW OF THE EXPERIMENT 

When' one first sits at the simulator console, the droplets seem 
stationary. The screen shows a closeup of the two droplets and two 
markers the operator must match with the "real" droplets. Their motion 
becomes obvious, however, as one attempts to follow them with the 
joystick. The speed builds slowly but surely as the droplets drift 
towards the edges of the screen. The errors build too. The first small 
error in a position measurement grows to glaring proportions. Then there 
is a hurry to fix it in the time left. The droplets must not drift too 
far from the center before the computer gets control from the operator. 
Time spent watching the slow acceleration of the drops should have been 
spent molding the motion of the markers to the motion of the real drops. 
Then the computer takes over accepting the indicated positions as 
accurate. A series of quick manipulations aligns the droplets, offset 
from the center of the chamber. Then there is a scale change as the 
screen now displays the whole chamber as seen from a distance. The 
chamber shifts along its length to bring the droplets to the desired 
distance from the center. In the process the droplets have drifted 
nearly back to the centerline of the chamber. The chamber stops and 
reverses its motion to counteract the now rapid fall of the droplets. 
One is nearly held fixed on the CRT screen and the other slowly passes 
by a few hundred microns from the first. More accurate information from 
the operator would have narrowed the distance to a near collision. But 
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most of the error came from a simplified method of aligning the 
droplets. 

Use of the simulator makes clear that although the motion of the 
droplets is much slower than on earth, they are still moving. The 
alignment of the droplets must be completed before they drift too far. 
Eventually they collide with the chamber walls. To use the squirrel 
cage, both drops must fit inside. If the drops are too far apart, they 
may move farther apart rather than collide. That is, if the differential 
in the centrifugal force is great enough between the two positions, the 
lighter drop may actually fall faster than the heavier. This gives a 
design consideration for the droplet injector. It should leave the drops 
as close to the center as possible. 

One thing that has been ignored in the simulator so far is that the 
droplet injector will leave the droplets in a volume of space, not 
always in the same plane. Thus a method (e.g. a squirrel cage) will have 
to be provided to bring the droplets to one level. This would also call 

for a second set of optics at right angles to the first. Another 

r 

possibility would be to use the limited depth of field of the optics to 
find the droplet's third coordinate. If digital imaging were used the 
computer could find the depth by seeking the level of maximum contrast. 
A digital system has other advantages also. It would remove the human 
element from determining position and droplet radius. The continuous 
stream of position information would locate the droplets much more 
accurately than the raster dimensions. The main disadvantage is the 
increased computation load on the computer which must sift through great 
volumes of data to keep track of the droplets. 

The operation of this experiment requires that the position and 
size of each droplet be accurately known. The size can be determined 
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from two time and position measurements since size is related to rate of 
fall. In practice the accuracy is limited by the resolution of the 
measuring device and the skill of the operator. To overcome this a least 
square fit from several measurements was tried. With an ideal operator 
this would have yielded accuracy of about 1/2% in the droplet radius 
after 3 or 4 position measurements. In practice random and systematic 
errors limited this to 2 or 3%. A second method that was tested shows 
the operator how close his last guess corresponded to reality. If the 
simulated position deviated from the real position, he could move the 
simulated drop to where it belonged. This would tell the computer how 
far the earlier radius estimate deviated from reality. When the 
estimated radius deviated considerably from the true one, this yielded 
results good to about 1%. One must look more carefully to notice small 
deviations, but this would come with more practice. The main 
disadvantage was that position estimates did not improve with the number 
of measurements. The least square fitting of the first method could be 
incorporated with this second method to give the advantages of both. 

Once the size and positions of the droplets have been determined 
the droplets must be moved out some distance from the center. They must 
arrive here aligned so that one collides with the other. This requires 
considerable prearrangement to achieve. (This is called prealignment 
below.) The biggest effect is Coriolis force during the move. The 
droplets must start seme distance from the midline of the chamber to end 
up on the midline after the move. The procedure to move the droplets 
from a position near the center to one offset to one side depends 
heavily on the positions and radii of the droplets. It was hoped to 
reduce this to a set of approximate formulas (Appendix 7, 1 July 1977, 
Appendix 8, 7 July, 1977). Using the University computer the 
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prealignment procedure was determined for a range droplet sizes and 
positions. Then formulas were fit to these data. However, even formulas 
involving hundreds of terms proved inadequate. A workable solution is to 
use a simple formula to approximate the answer. Then simulate to see how 
close it is and use successive approximations to arrive at a solution. 
This means that the computer must be able to do 3 or 4 complete 
simulations in short enough time for the droplets not to get away from 
it (For. example see Appendix 9, 15 March, 1978). The MAC-16 is not that 
fast so only the simple formula was ever implemented into the simulator. 

4. RECOMMENDATIONS AND REQUIREMENTS 

The experience gained so far indicates a number of requirements for the 
actual system to be used in earth orbit. The experiment could easily use 
one or more dedicated processors during operation. The control of 
stepping motors and internal environment must be precise and repeatable. 
This would be difficult with a computer that must take time out to 
handle "high priority" events. Since the computational load is not great 
here, this would be an ideal application for a microprocessor. The 
experiment requires a considerable amount of computation doing 
simulations. During a look-ahead simulation for the prealignment 
process, it would have, to run about 50 times the realtime rate. This 
would require a floating point add time of less than 10 microseconds. 
Thus the experiment would need at least an upper grade minicomputer. The 
simulations could share a computer with other functions if the compute 
time was available during the short periods when it was most needed. 

A great increase in computer load would also result if 1:1 scaling 
proves possible. This is rotating the chamber fast enough to generate 1 
gravity fields and using smaller droplets. This has the advantage that 
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earthside conditions obtain and no doubts can raise about the 
applicability of the results. However, the 10 micron droplets would move 
3.3 times faster than the 33 micron radius droplets that are currently 
being modeled. This means that the computer simulations would have to 
run correspondingly faster in a computer of sufficient power. 1:1 
scaling is probably only possible if the experiment could run without 
much operator input. This would be the case if digital imaging were 
used. 

The optical system would need a clear flat field with low distortion. 
Some procedures call for combining the view of the droplets with a 
computer display. This would need to be done very accurately with 
provisions to prevent parallax errors, etc. A CRT display would make 
this easier. A step further would be a digital imaging system. This, of 
course, would add a continuous high computation load to the computer. 

5. AREAS FOR FURTHER INVESTIGATION 

The largest area that has not been touched is the design of 
hardware. Droplet generators need investigation. The number of 
experiments that can be run per hour depends on how often the generator 
can deliver droplets of the desired size range to the desired area. 
Stepping motor systems which move accurate distances at controlled rates 
are needed. Clear low distortion optical systems play an all important 
part to the operation of the whole experiment. A more immediate need is 
better joystick input for the simulator. The current one is very slow 
and clutters the display with extraneous lines. 

Software development must keep space with that of hardware. For 
example, the procedure for prealignment of droplets depends on the exact 
manner that the stepping motors operate. It also varies when the 
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experiment is rescaled to use droplets in a different size range. In 
fact, it would be desirable to make the final version adaptive. The 
program would use its experience with real droplets to improve its 
performance on further trials. 

The investigations so far have brought out some of the ways in 
which the experiment could operate. However, the design is by no means 
fixed. New ideas still occur which could change the apparatus 
considerably. . 

6. SUMMARY 

This project is still in the conceptual stage, but the simulator 
has given much information on the problems yet to be solved. At this 
point, basic strategies for operating the experiment have been mapped 
out. The problems remaining lie in the area of developing the hardware 
to do the tasks needed. 

The simulation performed on this contract has been a fairly 

sophisticated numerical simulation of behavior of cloud droplets in an 

experiment suitable for an orbiting laboratory. The simulation will 

become a part of the real experiment when it is actually put into 

execution. A copy of the mini-computer (MAC 16) coding is attached. The 

basic feasibility of the computational approaches have been 

demonstrated, and numerical alternatives evaluated. Computational speeds 
have been addressed and are well within the state of the art. 
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Cloud Droplet Coalescence Experiments in Orbit 
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CLOUD DROPLET COALESCENCE EXPERIMENTS IN ORBIT 


1. INTRODUCTION 

Any attempt to justify a substantial effort to study the processes 
of nonfreezing rain formation is inadequate unless we recognize that 
cloud droplets are not raindrops and that condensation processes can' 
never grow a drop large enough (say to one millimeter in diameter) to be 
a raindrop. The importance of the condensation process is that it forms 
the cloud in the first place and in so doing provides the supply of 
water needed for the ice forming process to proceed or for coalescence 
to occur and raindrop sizes to be produced. 

The difference between the initial condensation process and the ice 
particle formation stage is in the number of particles which can act as 
nucleating agents. Even modest super saturation in the normal atmosphere 
produce an abundance of particles able to act as nuclei and it never 
occurs that only one particular per liter activates. If the latter were 
to happen rain would be produced directly from clear air, and 
condensation rather than icing would be the principle aircraft hazard. 

However, condensation nuclei are numerous and ice forming nuclei 
are rare, so clouds containing many small drops are formed which 
supercool readily as the cloud rises and cools below freezing. Then the 
few nuclei which activate to initiate ice particles, rapidly acquire all 
the water available by vapor transfer, giving large particles which 
precipitate as rain or snow. In this context it seems unlikely that a 
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factor of, say 10 or more, in cloud droplet sizes or number 
concentration could have any effect on the ice based rainforming 
processes. If this were true then the study of the condensation process 
might be thought to be an academic exercise, unless it could be proven 
that most rain actually did form by coalescence. However, Hallet and 
Mossop (1974) have advanced an interesting hypothesis that ice crystal 
production occurs during the freezing of the largest cloud drops, thus 
intimately relating cloud drop sizes to all rainforming processes, and 
in particular to the initial phases of severe thunderstorms. 

The physics of rain formation by the coalescence mechanism is quite 
different from that involved in the ice process. The drop sizes needed 
to allow numerous cloud droplet collisions is larger than condensation 
processes usually give with typical nuclei counts, because small drops 
do not touch but slide apart on collision. Hence a thorough 
understanding of the condensation process is a necessary step in 
understanding non freezing rain. This knowledge will be incomplete 
however, unless we know the next link in the chain of events leading to 
rain formation, the coalescence mechanics. The continued efforts to 
elucidate the details of the condensation process is partly justified 
because we believe coalescence studies have shown that only large drops 
(i.e. > 18 u m radius) can grow by collision. The verification of the 
theoretical estimates of the coalescence rates is thus equally important 
(as indeed is an adequate study of the modifications possible in the 
cloud spectrum by the turbulent mixing in of dry air, which now also 
appears to be important) to determining cloud droplet spectra. 

2. SCIENTIFIC backgroun d 

In the past 20 years the physical process which allows rain to form 
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by the aggregation of cloud particles has been the subject of detailed 
modelling. The instability of a cloud composed of the many small water 
drops which form by the initial continuing process of condensation was 
recognized many years ago by Bergeron. He understood that the drops 
which cooled in a rising cloud of air did not freeze immediately on 
reaching the normal freezing temperature at 0 C. However, as an 
associated effect of this supercooling the vapor tends to transfer to 
any ice in the vicinity below this temperature. The difference in the 
vapor pressure between that over the water and the smaller pressure over 
ice at the same temperature, results in the very rapid growth of those 
first few ice crystals formed in the supercooled water cloud, using up 
the water lost from evaporating drops. 

While this process had been generally accepted however, it was not 
long until (before 1950) aircraft observations convincingly demonstrated 
that rain often fell from clouds in which no ice could reasonably be 
thought to exist. These clouds were warmer than the freezing point of 
water in their coldest tops. The existence of this phenomenon 
necessitated an alternative explanation. Thus it was conceived that 
slight differences in cloud drop sizes would enable the bigger drops to 
catch up with any smaller slower drops beneath them and on contact join 
up to give a bigger drop which would repeat the process. 

It was soon apparent that at cloud drop sizes the flow of the air 
around the drops did not result in one drop gliding up to another as 
though it was not there until it bumped into it. The movement of the air 
in the front of the larger drop pushes the lower drop out of the way and 
the result is that at small sizes drop interactions rarely result in 
collisions. 

The transition between cloud droplet sizes where most intersecting 
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paths of falling droplets result in collisions, and the alternate case 
where there are very few collisions, occurs with decreasing drop sizes 
just before sizes become as small as the drops in real clouds. 

Observations of real clouds show however, that rain does fall from 
relatively thin clouds in relatively brief times of twenty minutes or 
so. Crude theory requires much larger times. The stochastic problem of 
the collision dynamics was formulated quantitatively by the author 
(Telford, 1955) when he included in the calculation, the low 
probability, but highly significant, faster than average growth by the 
few largest droplets. Even so these considerations do not give adequate 
growth rates even when using the present highly sophisticated 
theoretical values for the collision efficiencies. 

Furthermore these theoretical values for the collection efficiency 
have never adequately checked in the drop size region of interest. The 
experiments are exceedingly difficult, using as they must nearly equal 
droplets of less than 40 pm diameter. Numerous peripheral measurements 
have been performed using bigger drops or drops in a continuous stream 
but these do not address the real problem. The experimental difficulty 
relates to handling the drops so they can be precisely positioned before 
being dropped into the fall trajectories which lead to the collision 
dynamics . 

Another fundamental problem which could be resolved in a good 
experiment relates to the method whereby the initial microscopic bridge 
of water occurs between the two droplets at the initialization of 
coalescence. It is well known that electric fields make an enormous 
difference in the behavior of drops skating over a flat water surface. 
Any appreciable field results in the drops immediately coalescing with 
the surface. For unequally charged drops the interdrop field, of course, 
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rises without limit as the drops approach to spaces below 1 pm. It is of 
both fundamental and practical importance to know whether drops will 
coalesce without the help of some electric field between them. 

The stability of clouds and fogs may occasionally be a consequence 
of the total absence of electric effects to aid coalescence, or the 
presence of small, like, charges on the drops. It is also vital to check 
the theoretical calculations of the collision dynamics itself because of 
other approximations involved. Any appreciable deviation from the 
present theory could well have marked effects on the rate of growth of 
droplets in clouds and fogs by coalescence. 

The author performed a large number of experiments in about 1955 to 
check effects of surface active agents on drops about 150 pm in diameter 
and found no effect on the coalescence or "bounce” rate between drops. 
Hence most "bounces" in fact probably do not involve surfaces separating 
from distances of less than 0.2 u m, say. Later experiments showed a 
large influence from horizontal electric fields at diameters of 20 pm. 

More recently Neiburger, Lee, Lobl and Rodriguez (1974) have done a 
series of experiments at these small sizes from which they conclude that 
their smaller measured values of collection efficiences deviate from 
both theory and previous measurements# and that the logical deduction 
from this is that coalescence does not occur unless there are small 
residual charges on the drops. 

Thus any accurate explanation of the rainmaking process will 
involve the building of a precise numerical model which depends almost 
entirely on knowledge of this coalescence process when freezing has not 
become active, and may be dependent on this information even where ice 
processes have become active at some later stage. 
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3. HISTORY OF COALESCENCE 


The history of the coalescence problem began with Bowen's (1950) 
calculations on the growth of drops in warm clouds. Langmuir understood 
the collection efficiency problem, from his work on aircraft icing where 
a similar form of collection efficiency is important. He calculated the 
collection efficiency for a large collecting drop with potential fluid 
flow (infinite Reynold's number) and a small drop with viscous flow drag 
(zero Reynold's number, or Stokes' Law). He did the same calculation 
when the collecting drop was small and also had a zero Reynold's number 
for the flow around it. He then used an intuitive method to interpolate 
between the collection efficiencies calculated for an infinite Reynold's 
number collector and the collection efficiencies calculated for a zero 
Reynold's number flow at the collector. He thus derived a figure for the 
collection efficiency for the collector drop at the Reynold's number 
appropriate for its size. There was an obvious need to check this work 
experimentally and during experiments which this principal investigator 
undertook the wake collection effect was discovered at slightly larger 
than cloud drop sizes (Telford, Thorndike and Bowen, 1955; Telford and 
Thorndike, 1961). Then Hocking (1959) produced this solution for both 
drops having small enough Reynold's numbers so that his series solution 
converged. He assumed the equations were sufficiently linear (i.e. zero 
Reynold's number) so that the actual flow patterns around the drops 
could be formed by addition of a solution for motion along the line of 
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centers and a separate solution for motion perpendicular to the line of 
centers. 

This resolution is only strictly valid for a zero Reynold's number 
(viscous or Stokesian flow) as only in this case is the drag force 
exactly proportional to velocity, so allowing the superposition of 
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solutions. Zero Reynold's number however precludes the wake collection 
effect observed at larger sizes. But only for zero Reynold's number will 
the vector force due to two separate calculations of the forces, using 
the specified resolved velocity which is the vector combination of the 
two components of the velocity. Thus, Hocking's numbers for the 
collection efficiencies failed to consider the approximations in this 
force resolution approach. 

Analogy approaches were tried. Sartor (1954) produced an erroneous 
analog in which he did not try to make the densities of the drops and 
their medium take on the correct ratio, and thus the approach was not 
exact. The density ratio for oil drops in water in no way approaches the 
800:1 ratio of densities met in clouds of water drops in air. Attempts 
were made to solve this problem by "simulating" high densities (i.e. 800 
gm cm” 3 ) using metal balls in oil with large masses rigidly attached 
(Telford and Cottis, 1964). 

To reiterate, vital interest in the collection efficiency arises 
because the Reynold's numbers of the droplets in clouds is too large to 
be considered zero, but far too small to allow potential flew solutions 
to be useful, thus posing an extremely difficult theoretical problem. 
Clouds are however observed to rain in conditions where coalescence 
proceses appear to be the only possible mechanism. 

Hocking's collection efficiencies predicted no drops would coalesce 
unless their radii exceeded 18 vim. This process demands an improbably 
large size for drops to occur in clouds by condensation growth, in the 
conditions usually occurring. 

Sartor, apparently realizing the difficulties of analog simulation 
and experimental measurement with cloud sized drops (for previous 
experimental work in this area see Telford and Thorndike, 1961; Woods 
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and Mason, 1965; Picknett, 1960; and Woods, Drake and Goldsmith, 1972) 
encouraged Bill Davis to rework the problem theoretically (Davis and 
Sartor, 1967). The experimental work at UCLA with Neiberger and 
Pruppacher was based on confirming the theory by experiments with heavy 
metal balls in viscous fluids (density ratios of less than 20:1) . More 
extensive theoretical work was undertaken by Hocking and Jonas (1970). 
who took account of the force couples on the drops at close approach and 
also used the improved approximation to the theory given earlier by 
Davis and others. They also point out that collision is impossible if 
Stokesian (viscous) flow is preserved at close approach. Davis (1972) 
treated the problem of the final thin film of air between the drops. 

All these treatments assume zero Reynold's number (Stokesian or 
purely viscous flow) in separating the flow field solutions. The wake 
effect observed experimentally, and for which there is some evidence at 
Reynold's numbers approaching the values found in cloud droplets, is a 
direct manifestation of non-Stokesian flow. Thus the zero Reynold's 
number on which the theory is based remains in need of verification. 

Bartlett (1970) used the Hocking and Jonas' (1970) calculation to 
look at the evolution of a possible cloud drop spectrum. He examined the 
modification of the cloud drop spectrum and shows the spectrum of large 
cloud drops sometimes observed in clouds could not be obtained this way. 
However, he equated the changing whole cloud drop spectrum with rain 
formation, which is not satisfactory. As Telford (1955) showed, the 
growth of raindrops may be quite separate from any large modification of 
the droplet spectrum at cloud drop sizes. The majority of cloud drops 
have their sizes determined by coalescence, condensation and mixing, in 
their passage up through the cloud. Rain is formed by about one in 10^ 
of these drops growing faster than the others by virtue of experiencing 
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collisions very early in the cloud process, and using this advantage to 
grow to raindrop sizes while the other cloud drops are still only a few 
tens of microns in size. 

Thus Bartlett's conclusion that clouds formed of large drops will 
not evolve to the super large drop spectrums sometimes reported, by 
coalescence alone, is not the central issue. Incidentally, a large 
number of large cloud drop spectra sampled with oil coated slides simply 
demonstrate that coalescence of the captured cloud drop occurs on the 
collecting slide. The real issue is whether coalescence processes allow 
the very few droplets needed to produce rain to start growth soon enough 
after condensation begins, to give them the time advantage needed to 
form rain before the cloud evaporates. 

In fact the lifetime of clouds, if the microphysics were different, 
would become larger and larger until rain formed frequently enough to 
stop the average moisture in the atmosphere from increasing any further. 
Thus, the problem is one of determining an explanation of why 
coalescence processes in warm latitudes over the sea operate as quickly 
as they are observed to do. Thus the interest in coalescence processes 
is in relatively rare events that occur much earlier in time than the 
time when the average collision will occur. The theoretical work is very 
valuable but we should beware of accepting the view that such 
calculations have settled the problem, without experentl checks. 

The urge to get on with it often produces the attitude that the 
best to date must be good enough, unless there is a simple path to an 
easy improvement. Berry's recent work integrating the stochastic 
equations is questionable for this reason. He does not appear to have 
treated the problem of how the first bigger cloud drops form (say those 
greater than 15 pm radius) but has treated the calculation of how the 
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raindrop spectrum evolves after this has happened and in non turbulent 
clouds. This problem is compounded by the fact that there is no well 
founded logical basis for integrating growth in a smooth updraft when we 
know what we do now know about the large turbulence in clouds. 

Thus, there is presently a tendency to say that the interesting 
part of the coalescence problem remaining to be solved is what happens 
when the drops are very close. We suggest here that the important thing 
is to develop any sort of experiment that works with water drops in air 
at sizes close to real cloud droplets sizes. Experiments in liquids 
(i.e. water drops in oil) are always suspect because of double layer 
phenomena which produces surface repulsive layers which do not occur in 
air. 

Once a reliable experimental technique is available, experiments 
can be performed using surface active agents in the water or other 
liquids besides water. Previous experiments in about 1955 by the author 
with larger drops (150 microns) indicate that surface active agents, 
e.g., hexadecyl-tri-methyl ammonium bromide, produce very little effect 
on water drop collisions in air although for bubbles and liquid drops in 
water the effects are large. 

4. DROP DISTORTION 

It is sometimes suggested that using larger water drops under lower 
gravity will not model the surface tension forces and thus give 
uncorrectable errors. Let us now look at the suggestion that the 
distortion of the drops during collision may play a role in the 
dynamics. This should be checked by using drops with a higher or lower 
surface tension in the experiment but let us reason as follows. 
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In a sphere in an acceleration field we have a pressure gradient 
within the drop. Thus, the curvature at the top and bottom of the drop 
will differs slightly. 

If the surface tension is T then in a non-accelerated drop of 
radius r the pressure is, 

p _ 2T 

r • 

This applies also to any spherical cap of radius r. 

The pressure gradient in the drop is, where a is the acceleration 
and p the density, 

dp = Pa. 
dz 

At the top and bottom of the drop there is very little tangential 
airflow so the internal pressure will rarely determine the surface 
curvature (we ignore internal circulation although this should model 
correctly in the case of the experiment which we hope will be an outcome 
of this work) . 

The average pressure in the drop will be 



The pressure deficit at its top will be, 
AP = - rpa . 

Thus 

P Top = P + AP = — - rpa 

r Top = — 2T 

r 2T-r 2 pa 


= 2T 
r Top 
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1 

1-r 2 pa/2T 

T = 76 dynes/crn 

r = 50xl0“^cm 


- = 1.7x 13 - 7 a 

For a 1% effect on the drop curvature, 

a = _Mi_ 

1.7xl0~ 7 

= 6x1 0 1 * cm sec~^ 

1.7 a 

Thus the distortion of such a drop under its own weight is quite 
negl igible. 

To es 5ate the acceleration during a drop collision assume the drop 
moves aside by one drop radius in the time the drop takes to move 
forward one diameter. 

Itie terminal velocity in the experiment is 0.18 cm sec” 1 and hence 
we might assume a relative velocity of 0.1x0.18. Thus, 

a = L l 

[2r/(0.1x0.18) ] 1 

= 1 
12345r 

= 0.024 cm sec“2 

= g_ 

40,000 
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Thus the acceleration of the drops in the experiment is about 10 s 
times too small to produce perceptable drop distortion. 

As a check on the surface tension formula consider the average 
radius of a drop which is big enough to give the curvature of the top 
surface as half the average curvature in a 1 g field (i.e. under its own 
weight) . 

^ = 1/2 
2T 


r 2 


T = 76 

P* 1x103 


r =0.28 cm which agrees with the observation that 3 mm radius water 
drops show marked flattening. 

The real answer to the question of the non-perfect analog of the 
cloud drop collisions is of course that we can readily use the apparatus 
to simulate 1 g or so we have every non-dimensional number exactly 
correct. The essence of the experiment is that zero-g conditions allow 
opportunity to arrange the positions of the drops precisely before they 
start falling. Thus we should have no fundamental problem in extending 
the experiments down to 20 ym radius droplets in a 1 g field. It should 
be pointed out at this stage that the plane of the collision can be 
arranged so that the acceleration of the drops is not in the direction 
of the Coriolis forces and hence such effects should be secondary. With 
the ability to study the larger cloud drop sizes at correct and constant 
Reynold's number but varying other parameters of analog simulation away 
from their exact values, the experiment should shed light on their 
importance. 

This experiment is one which cannot be performed in the earth bound 
laboratory because of the enormous difficulty of controlling the 


13 


position of the two drops before the collision process starts. Flinging 
the drops into position from a vibrating hollow needle in a stream of 
one drop after another creates flow forces on the drops which tend to 
align the drops before the drops have decelerated to the velocities 
comparable to the initial conditions of approach experienced in clouds, 
and this unrealistic beginning to the collision trajectories can have a 
profound effect on the measurement (Telford, 1966) . In the zero-g 
experiment the process can be started from rest with precise 
positioning. 

The experiment is important because the theoretical description of 
the process involves assumptions the evaluation of which are a matter of 
faith. The understanding of the phenomenon is important because even if 
the formation of warm rain cannot be explained in this way as a 
coalescence phenomenon we are left with a problem which, when solved, 
could have far reaching effects on all rainforming theories and 
techniques of weather modification. If rain can be explained as the 
result of coalescence we need to know how, so as to evaluate its 
influence in all rainforming processes. Freezing rainforming processes 
cannot act' in clouds wholly above zero in temperature. Coalescence 
processes will always be in action unless the collection efficiencies 
are truly zero. 

The proposed experiment offers a tool in which other efforts on 
coalescence, dust in the air, electric fields, sudden acceleration of 
the air during, close approach to simulate turbulence, etc. can be 
evaluated once the technique is established. 

5. THE EXPERIMENTAL APPROACH 

The possibility of an experiment under very low gravity allows a 
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new freedom in planning experimental measurements of the efficiencies of 
collection between cloud drops. To correctly simulate the dynamics of 
droplet collision it is necessary to maintain the Reynold's Number of 
the flow correct at each geometrically similar point while the colliding 
drops approach each othf.r . To do this it is not sufficient to arrange 
the sizes of the drops and the viscosity of the fluid so the Reynold's 
Numbers are correct when the drops are well separated. In addition, it 
is necessary to have the density of the drops relative to the 
surrounding fluid the same as for water relative to air, about 1000:1. 
Only then will the Reynold's Numbers of the drops remain correct as the 
drops accelerate when the trajectories curve on close approach. 

The desirability of modeling the drop collision phenomenon comes 
about because of the difficulties in working with water drops some 10 ym 
or so in diameter. Two fundamental problems arise. The first is the 
virtual impossibility of positioning two drops one above the other and a 
hundred diameters apart vertically in such a way that the horizontal 
separation of the projected paths is known, and secondly, the smallest 
air currently seriously disturbs the paths of the drops falling at a few 
centimeters per second. Choosing pairs of drops in a projected stream of 
droplets from a vibrating needle is useless since the collision dynamics 
are well advanced, in an entirely different dynamical regime, before the 
drops slow down in the observational field. On the other hand, random 
collisions between well isolated drops are too rare for profitable 
observation and a dense cloud of drops introduces its own circulation 
problems. 

The virtue of modeling experiments performed under conditions of 
zero gravity is that the drops can be arranged manually before release. 
This paper describes a method of use in a zero g laboratory to take 
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advantage of this condition with water drops falling in air. 

6. BACKGROUND TO COLLISIONS UNDER LOW GRAVITY 

The opportunity to virtually turn off gravity at the center of mass 
of the capsule allows an adequate setting up procedure since -the drops 
remain almost unmoving. The turning on of linear gravitational 
acceleration at 1 g would be difficult in a capsule because of the large 
velocities involved. However, it turns out that small controlled 
circular accelerations bring major advantages to the experiment in the 
form of allowing larger drops and slower speeds to retain dynamic 
similarity. The flow appears to be exactly analogous but for this to be 
true the ratio of the drop density to that of the surrounding fluid must 
be the same as for water drops in air, and hence the experiments require 
a liquid moving in a gas. Water in air is the obvious choice because it 
is harmless and will stimulate actual coalescence much better, the 
different drop surface curvature being the only essential change. 

For lower gravity the formulae for the terminal velocities of drops 
are as follows: 

Stokes Law gives, 

F = 6irnrv = 4 tt ( p— p ' )r 3 g/3 
v = 2 (p-p 1 )gr /9 

R e = 4 {p-p ' )gr 3 /9v 2 p ' 

where 

v = n/p' = kinematic viscosity of air 
n = dynamic viscosity of air 
p - density of water 
p* = density of air 
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r = drop radius 

g = acceleration due to gravity 
R e = Reynold's number 

Thus, in simulation with reduced g, using the subscript e to refer 
to normal conditions on Earth, 



Hence, if we plan to set up an experiment at zero g in a small 
package and then accelerate at 10-3g we can simulate by using 200 ym 
drops the collisions of two nearly equal drops in the atmosphere, of 
diameters 20 ym (we need to simulate diameters from 20 pm to 40 ym) . 

The terminal velocity of the 200 ym drops at 10”^g will be (for R 



v e gr /9e r e = v e r e/ r = 1*2/10 = 0.12 cm sec 
Hence the simulated drop moves through its surrounding air a 

distance of about 6 radii each second. If we plan on a 1% difference in 
the terminal velocity of two drops set up for collision at a distance of 
30 diameters apart they will need a time of, 

t = 60xl00r/v = 6000 r e /v e (g e /g) 2/3 = 5 (9 e /g) 2/3 r 
so that about 10““g e the experimental drops will take about 8 minutes to 
collide. If this occurs in a linearly accelerating chamber accelerating 
at g, the chamber will move 

L = l/2gt 2 c 12g e {g e / g) l/ 3 

or a distance of 1200 meters or more. 

This approach would thus require acceleration of the spacecraft. 
Sustained acceleration is obtainable from the gravity gradient across 
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the spacecraft. However, this is of the order of 10 -6 g e / m . This low 
number suggests an even more desirable experiment where the drops used 
are 2000 ym or 2 mm in diameter and the experiment runs for a time of 
1000 minutes or 16 hours. This would, however, involve servo control of 
the spacecraft to keep the experimental chamber in free fall within an 
experimental volume where the only force on the experimental container 
is a controlled force generating the 10-6g e accelera tion. Since the 2 mm 
drops need to move 6000 x 2 mm within their immediate airspace the 
chamber would also need to be this long and adjusted so the 
gravitational gradient along it was either negligible or used so the 
drops always experienced the correct acceleration. 

Considerations of trade-offs along this line of thought depend on 
engineering data unavailable to the author, in particular, the spectral 
density of the g noise, which has only been mentioned as of the order of 

10”^9 e . However, this approach seems impractical at present and an 
alternative approach is recommended, which is much less demanding and 
should give the desired results. 

Thus, the practical approach to using a very low acceleration (e.g. 

is to set up the drops in their initial condition and then apply 
an acceleration by swinging the chamber in a circle. 

When the drops have a diameter of 200 ym a fall dtance of 6000 
diameters is 120 cm and hence the fall space in the chamber would have 
to be about this length. To achieve an acceleration of 10“3g^ or cm 
sec - ^ the circular path and velocity are given by 

1 = rn 2 

If r = 30 0, a * 0.18 radians sec“l or a full circle is T = 35 seconds. 

Thus a free space allowing a circular swing of about 2-1/2 m 
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dianeter is needed for this experiment. 

Since such a size may be unwieldly it is suggested that the optimum 
result will come from choosing the instrument to fit inside a 60 cm 
diameter space. Thus, the maximum length of fall is about 20 cm with the 
drops moving on a 10 cm radius circular path. Thus, the drop diameters 
should be 20/6000 = 33 ym in diameter. 

This size drop calls for an acceleration of g e / 4.49 = 218 cm/sec 2 . 

If the radius arm is 10 cm = (218/10)1/2 = 4.67 radians/sec. 

T = 1.35 seconds per revolution. 

The time needed for the drops to fall is t = 14 seconds. 

Thus, while the drops are smaller than desired the exper imenBkks 
s practical to perform under low gravity conditions. At D-2. 

Thus, for a 10 cm radial distance of the rotating chamber 
= 1.6 radians/sec 
T = 3.9 sec 

The time for the drop falling is 
= 44 seconds 

This final configuration looks the best particularly if a total 
diameter greater than 60 cm is feasible. 

7. THE EXPERIMENTAL METHOD 

Thus, the experiment would be planned to visually adjust the 
position of two drops using small air jets, acoustic manipulators or the 
centrifugal acceleration gradient, while on the axis of rotation of a 
transparent square tube rotating around a line perpendicular to the tube 
through one end. In this essentially non-accelerated region the task of 
adjusting position can be done at leisure and may well .take 10 to 15 
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minutes to set up a required drop collision. This overcomes the problem 
met in terrestrial experiments associated with the impossibility of 
positioning the participating drops as needed. 

Acceleration is then applied to the drops by moving the transparent 
square tube along its axis away from the axis of rotation until the 
drops themselves are 10 cm from the axis of rotation. Here the 
acceleration is 26 cm. sec.“l and this is maintained by moving the 
transparent tube back along its axis so the drops are always 10 cm from 
the axis of rotation. 

Since we are considering 67 ym diameter drops 30 diameters apart 
this is a separation of 2 mm in 10 cm and the centrifugal acceleration 
difference is 2% which is negligible. Similarly the gas will have 
virtually no motion induced by these accelerations. g 0 gives at 1000 mb 
pressure a pressure gradient of 0.12 mb m"l. The effects in this 
experiment on gas compression are thus very much less than 1 in 10** and 
so are negligible. Gas' temperature and moisture differences should be 
evened out by stirring between each experimental run. 

The drop motion can be photographed with two perpendicular views 
superimposed in color on the film. 

It is essential for the success of this experiment to provide the 
operator with a good viewing and manipulation facility since the 
essential capability this experiment offers is the ability to initialize 
the drop motion precisely as needed without throwing a stream of drops 
into place along a track, or picking pairs at random or using some other 
expedient which has so seriously hampered terrestrial approaches to this 
measurement problem. 

The figures show the experimental device and how the drops can be 
viewed while in the rotating experimental space. The optical device (or 
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some other visual display device) would keep the drops central in the 
field as they were moved radially outwards and removed the rotation from 
the image. They would be adjusted to their initial positions by acoustic 
or other mothods when in the zero gravitational field on the axis of 
rotation of the apparatus. Then the tube would be moved radially on 
outwards until the drops were rotating on a 10 cm radius circle and 
experiencing the "gravity force" from this centrifugal acceleration. 
Their position would be maintained at this radius, as they fall, by 
moving the enclosing tube radially. 

The dynamics involved in moving the drops out from the center could 
be calculated accurately since Stokes' law applies when they are well 
separated at this stage of their fall. A digital simulator could be put 
together fairly readily for allowing practice of the setting up 
procedure. 

8. INVESTIGATIVE APPROACH 

This project has been concerned with examining the details of 
initializing the droplet collision processes. This has been more than 
half accomplished to date and involves producing the mathematical 
routines and programming them to run on both a CDC 6400 computer for 
checking out convergence problems in the integration, etc. , and in real 
time on a minicomputer owned by the laboratory, to displaying the drop 
behavior on a display screen. The purpose of this work was two-fold, to 
show by simulation that the experiment was practical to control by a 
human operatond to provide a simulator for planning the actual 
experimental details. We have produced a substantial number of 
mathematical routines able to simulate the drop behavior when falling in 
the rotating chamber but well separated so drop interaction is 
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negligable. The only practical way to perforin the experiment is to 
mathematically predict the positions to which the drops must be moved 
before they start to fall together. As they move out from the rotation 
axis in the rotating tube their paths are quite complex, far too complex 
for an operator to guess at where they should start. Hence in 
initializing the position of the drops their positions will need to be 
accurately recorded in the computer as the payload specialist 
continually keeps the drops located by adjusting separate crosshairs for 
each drop in the viewing device. 

Most of the positioning can be accomplished by rotating the chamber 
in a controlled manner as the computer routines predict drop collisions, 
or miss distances. In this way the drops can be initialized in positions 
which, for simple geometric collisions, would range from a near miss 
from one side to a near miss from the other side. The proportion of 
actual coalescences to coalescences expected on simple geometric 
considerations, then leads to collection efficiency values (the linear 
collision and coalescence cross-section needs to be squared to give the 
usual formulations for collection efficiency which is based on area) . 

More laboratory work will need to be done with actual drops before 
a final design of the experimental procedure can be specified. We need 
to know how well we can manipulate two closely spaced drops in zero-g, 
with some of the current drop manipulation procedures now being 
developed by various interested experimenters. The availability of 
precise pinpoint control, for example by laser beam, could modify the 
experiment. 

However, experimenters have been generating small drops for fifteen 
or twenty years now and it is more a matter of selecting a technique and 
refining it to the stage where it will operate reliably, rather than 
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developing a new approach. Thus, generating a stream of droplets from a 
vibrating hypodermic needle is an acceptable technique if it can be made 
to operate reliably with the skills we can expect from a payload 
specialist. Depositing two nearly equal droplets very close together in 
the chamber is exactly what we need here since the centrifugal force 
will slowly separate them, and after having come to rest any deleterious 
wake effects biasing the experiment after leaving the needle will no 
longer apply. Hence it is probably a practical technique to charge all 
but selected droplets by a photo-electric synchronized charging plate 
near the needle and to thus extract all unwanted droplets from the 
stream. Thus, pressing a button could be arranged to give one drop. 

After the drops are located the computer could then indicate if 
they are suitably positioned to give a later position for collision, and 
if not then call for another one to be supplied, relying on the inherent 
random scatter from the needle generator to provide the variety of 
positions required. 

Our numerical experiments have been based on rotating the air 
around the two drops by means of a circle of thin wires parallel to the 
axis of rotation. Such a structure can be built so that these "squirrel 
cages" can enter the air from positions flush with the tube walls and 
turn sufficiently to rotate the angle between the drops relative to the 
rotating tube. If done slowly there will be negligible turbulence 
created. Possibly a complete cylinder of very thin metal may prove 
satisfactory. The numerical simulation shows such a procedure should be 
satisfactory if we can inject the drops closely enough in the first 
instance, and measure their positions accurately enough. 

The initial simulation was achieved with the operator shifting the 
cross hairs from one drop to the other, alternately, as the simulated 
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drops drift on the screen in the way they would drift in the rotating 
tube. (See figures in the appendix for the apparatus) . 

This procedure indicates that all is well in anticipating a 
practical experiment. However, this is not an adequate way to assess the 
degree of skill needed to do the experiment in real time. 

The simulation has been improved in terms of human interaction to 
make it more satisfactory. We have added to the display two small 
crosses showing where the drops being matched to the simulated drops by 
the monitor program appear in space so the operator can concentrate on 
improving the match where most needed, rather than trying to give exact 
information when a lot of approximate positions would be of much more 
use, and vice versa. The software routines in the monitor program solve 
a number of complicated fitting and dynamical problems in real time in 
order to achieve these results. This software is needed to run the 
zero-g experiment when the time comes. At some final stage, the drop 
simulator must be replaced by the real apparatus with the real drops in 
it. 

The program at present simulates all the forces on the droplets 
when the drops are well separated and no interaction is occur ing. Thus 
by following the actual drop motion (simulated by the computer at this 
stage) with crosshairs, under operator control, the monitor program 
estimates drop sizes. The program can thus control the rotation of the 
tube and "squirrel" cages to position the drops in such a way that a 
collision will occur later on down the tube, when the two drops have 
fallen after one another far enough for the dynamical interaction to be 
fully developed. 

Further implementation of the experiment would include building and 
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testing the computer controlled interfaces needed to control the 
mechanical operation of the experimental apparatus (see drawings for 
preliminary concept of apparatus). This includes computer interfaces and 
stepping motor drives for each necessary response to the monitor 
program. 

In zero-g the observation of whether or not the drops coalesce, as 
a function of computed geometric position, gives the collection 
efficiencies we need. The computer simulation we are reporting here as 
the initial study will of course give only the geometrical, 
non-dynamical, interaction. However the whole system can be tested in 
this way up to this last stage, and operators trained, experimental 
accuracies refined, and the many minor problems cleared up before the 
final instrument is built. 

The present software will provide the real time mechanical control 
to control the rotation rates, position the tube relative to the center 
of rotation, rotate the air around the drops, all according to 
mathematical simulations. Hence the drop motion should be strictly 
reproducible, and so the needed information can be obtained by recording 
the range of initial conditions which give a hit. Accurate tracking of 
the drop trajectories as they approach each other after the initial 
placement is, alone, sufficient to give the collection efficiencies. 

9. SUMMARY 

This report describes scientific studies undertaken to fill the gap 

left by the zero-g condensation experiments in order to give the latter 

work practical value in weather modification directed goals. If the 

* 

condensation processes give cloud drops which are never going to 
coalesce then we are not studying the mechanisms truly responsible for 


25 


rain formation. Thus we need to know precisely how much coalescence can 
get started at sizes before condensation growth becomes too slow to be 
important. It is presently doubtful that the condensation processes give 
rise to drop sizes for which the more rapid fall of the largest drops 
gives collisions and accretion by coalescence until rain results. 

It is believed that the flow fields of the air around the tiny 
cloud drops prevent most collisions from achieving contact. However, the 
extensive theoretical work done on this subject needs to be checked by 
direct experiments with water drops. 

The earth based laboratory experiments are almost impossible to 
perform without prohibitive restrictions. This study shows how 
conditions of zero-g can be used to overcome these problems and allow a 
well regulated and precise experimental situation. 

There is a need to continue the preparatory work needed to specify 
the required apparatus, test its performance, make the measurements and 
analyze and supply the results. 
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1. INTRODUCTION 

The possibility of experiment under 
very low gravity allows a new freedom in planning 
experimental measurement of the efficiencies of 
collection between cloud drops. To correctly 
simulate the dynamics of droplet collision it is 
necessary to maintain the Reynold's Number of the 
flow correct at each geometrically similar point 
while the colliding drops approach each other. 

To do this it is not sufficient to arrange the 
sizes of the drops and the viscosity of the fluid 
so the Reynold’s Numbers are correct when the 
drops are well separated. In addition it is 
necessary to have the density of the drops rela- 
tive to the surrounding fluid the same as for 
water relative to air, about 1000:1. Only then 
will the Reynold's Numbers of the drops remain 
correct as the drops accelerate when the trajec- 
tories curve on close approach. 

The desirability of modeling the drop 
collision phenomenon comes about because of the 
difficulties in working with water drops some 
10 pm or so in diameter. Two fundamental problems 
arise. Ihe first is the virtual impossibility of 
positioning two drops one above the other and a 
hundred diameters apart vertically in such a way 
that the horizontal separation of their projected 
paths is known, and secondly, the smallest air 
current seriously disturbs the paths of the drops 
falling at a few centimeters per second. Choosing 
pairs of drops in a projected stream of droplets 
from a vibrating needle is useless since the 
collision dynamics are well advanced, in an 
entirely different dynamical regime, before the 
drops slow down in the observational field. On 
the other hand random collisions between well 
isolated drops are too rare for profitable obser- 
vation and a dense cloud of drops introduces its 
own circulation problems. 

The virtue of modeling experiments is 
that the drops can be arranged manually before 
release. This paper describes a method for use in 
a zero g laboratory to achieve this same purpose 
with water drops falling in air. 

2. BACKGROUND TO COLLISIONS AT LOW GRAVITY 

The opportunity to virtually turn off 

gravity at the center of mass of the capsule allows 

an adequate setting up procedure. The turning on 
of linear gravitational acceleration at 1 g would 
be difficult in a capsule because of the large 


velocities involved. However it turns out that 
small controlled accelerations bring major advan- 
tages to the experiment in the form of allowing 
larger drops and slower speeds to retain dynamic 
similarity. The flow appears to be exactly analo- 
gous but for this to be true the ratio of the drop 
density to that of the surrounding fluid must be 
the same as for water drops in air and hence the 
experiments require a liquid moving in a gas. 

Water in air is the obvious choice because it is 
harmless and will simulate actual coalescence much 
better, the different drop surface curvature being 
the only essential change. 

For lower gravity the formulae for the 
terminal velocities of drops are as follows: 

Stokes Law gives, 

F * 6mnrv = 4TT(p-p') r 3 * g/3 

v - 2(p-p')gr 2 /9n 

R «= 4 (p-p')gr 5 /9V 2 p' 
e 

where 

v = r)/p' * kinematic viscosity of air 
H «= dynamic viscosity of air 
p = density of water 
p' * density of air 
r = drop radius 

g = acceleration due to gravity 
R = Reynold's number 

Thus, in simulation with reduced g, 
using the subscript e to refer to normal conditions 
on Earth, 



Hence, if we plan to set up an experi- 
ment at zero g in a small package and then accel- 
erate the package at 10~3g we can simulate using 
200pm drops the collision of two nearly equal drops 
in the atmosphere, of diameters 20Um (we need to 
simulate diameters from 20pm to 40um) . 

The terminal velocity of the 200pm drops 

at 10" 3 g will be (for R = K ) 
e e e 

e 

v = v gr 2 /c r 2 = v r /r = 1.2/10 = 0.12 cm. sec. 
e 'e e e e 
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Hence the simulated drop moves through 
its surrounding air a distance of about 6 radii 
each second. If we plan on a 1% difference in 
the terminal velocity of two drops set up for 
collision at a distance of 30 diameters apart they 
will need a time of 

t = 60 x lOOr/v = 6000 r e /v g (g e /g) 2/3 =5 (g e /g) 2/3 , 

so that at 10 3 g the experimental drops will take 
about 8 minutes to collide. If this occurs in a 
linearly accelerating chamber accelerating at g, 
the chamber will move 

L * l/2gt?= 12g e (g e /g) 1/3 
or a distance of 1200 meters or more. 

This approach would thus require 
acceleration of the spacecraft. Sustained accel- 
eration is obtainable from the gravity gradient 
across the spacecraft. However this is of the 
order of 10 -6 g e /m. This low number suggests an 
even more desirable experiment where the drops 
used are 2000pm or 2 mm. in diameter and the ex- 
periment runs for a time of 1000 minutes or 16 
hours. This would however involve servo control 
of the spacecraft to keep the experimental 
chamber in free fall within an experimental volume 
where the only force on the experimental container 
is a controlled force generating the 10“6g accel- 
eration. Since the 2 mm. drops need to move 
6000 x 2 mm. = 12 m. within their immediate air- 
space the chamber would also need to be this long 
and adjusted so the gravitational gradient along 
it was either negligible or used so the drops 
always experienced the correct acceleration. 

Considerations of trade-offs along 
this line of thought depend on engineering data 
unavailable to the author, in particular, the 
spectral density of the g noise, which has only 
been mentioned as of the order of 10 -4 g . Without 
knowing the excursions in position of t^e craft 
around the true central point nothing further can 
be done in this way and so an alternative approach 
is. recommended whigh is much less demanding and 
should give the desired results. 

Thus the practical approach to using 
a very low acceleration (e.g. 10~ 4 g ) is to set 
up the drops in their initial condition and then 
apply an acceleration by swinging the chamber in 
a circle. < 

When the drops have a diameter of 
200pm a fall distance of 6000 diameters is 120 cms. 
and hence the fall space in the chamber would have 
to be about this length. To achieve an accelera- 
tion of 10 -3 g or 1 cm. sec. “2 the circular path 
and velocity are given by 

1 = rfl 2 

If r = 30 cm., fJ = 0.18 radians sec. ^ or a full 
circle is T = 35 seconds. 

Thus a free space allowing a circular 
swing of about 2-1/2 m. diameter is needed for 
this experiment. 

Since such a size may be .unwieldly it 
is suggested that the optimum result will come 


from choosing the instrument to fit inside a 
60 cm. diameter space. Thus the maximum length 
of fall is about 20 cms. with the drops moving 
on a 10 cm. radius circular path. Thus the drop 
diameters should be 20/6000 = 33pm in diameter. 

This size drop calls for an accelera- 
tion of g /4.49 = 218 cms ./sec. 2 , 
e 

If the radius arm is 10 cms. 

= (218/10) 3 ’^ 2 = 4.67 radians/sec. 

T =1.35 seconds per revolution. 

The time needed for the drops to fall 
is t = 14 seconds. 

Thus while the drops are smaller than 
could be desired the experiment looks practical to 
perform under low gravity conditions. At these 
substantial accelerations the movement of the 
spacecraft would be negligible. 

bet us repeat the exercise with half 
the initial separation of the drops which may be 
sufficient in most cases. If 20 cm. is 3000 drop 
diameters the drop will be 67pm. Thus we need an 

acceleration g /38 = 26 cm. sec. "2. 
e 

Thus for a 10 cm. radial distance of 
the rotating chairber 

=1.6 radians/sec. 

T = 3.9 secs. 

The time for the drop falling is 
t = 44 seconds 

This final configuration looks the best 
particularly if a total diameter greater than 
60 cms. is feasible. 


3. THE EXPERIMENTAL METHOD 

Thus the proposed experiment is to 
adjust the position of two drops with optical ob- 
servation using small air jets, acoustic manipu- 
lators or the centrifugal acceleration gradient, 
while on the axis of rotation of a transparent 
square tube rotating around a line perpendicular 
to the tube through one end. In this essentially 
• non-accelerated region the task of adjusting posi- 
tion can be done at leisure and may well take 10 
bo 15 minutes to set up a required drop collision. 
This overcomes the problem met in terrestrial 
experiments associated with the impossibility of 
positioning the participating drops as needed. 

Acceleration is then applied to the 
drops by moving the transparent square tube along 
its axis away from the axis of rotation until the 
drops themselves are 10 cms. from the axis of 
rotation. Here the acceleration is 26 cm. /sec. 
and this is maintained by moving the transparent 
tube back along its axis so the drops are always 
10 cm. from the axis of rotation. 

Since we are considering 67ym diameter 
drops 30 diameters apart this is a separation of 
2 mm. in 10 cms. and the centrifugal acceleration 
difference is 2% which is neglible. Similarly the 
gas will have virtually no motion induced by these 
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Figures. The figures are self-explanatory and 
illustrate the experimental apparatus and how 
the drops are positioned for a collision 
experiment. 


The Figures show the proposed experi- 
mental device and how the drops can be viewed 
while in the rotating experimental space. The 
optical device proposed would keep the drops 
central in the field as they were moved radially 
outwards and remove the rotation from the image. 
They would be adjusted to their initial positions 
by acoustic or other methods when in the zero 
gravitational field on the axis of rotation of 
the apparatus. Then the tube would be moved 
radially outwards until the drops were rotating 
on a 10 cm. radius circle and experiencing the 
"gravity force" from this centrifugal accele- 
ration. Their position would be maintained at 
this radius, as they fall, by moving the enclosing 
tube radially . 

The dynamics involved in moving the 
drops out from the center could be calculated 
accurately as Stokes' law applies when they are 
well separated at this stage of their fall. A 
digital simulator could be put together fairly 
readily for allowing practice of the setting up 
procedure . 




cm. 


-Orops at Starting Position 
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APPENDIX 3 

Interim Final Report, 15 January 1976 


Introduction 


This project has as its ultimate goal the study of cloud 
water droplets to ascertain whether present theory of cloud 
drop collision and coalescence is adequate. The dynamics of 
cloud droplets is not yet completely understood. The collisions 
and interactions that produce rain drops have not proven them- 
selves easy to study. For one thing the droplets are very small, 
say 20 ym, and small air currents or electric charges affect 
them greatly. In addition droplets of this size fall at about 
1 cm sec” 1 . This gives the experimenter only seconds to position 
droplets for an experiment and since the droplets cannot be 
touched, accurate positioning is impossible in an earth situated 
laboratory. The possibility of doing experiments in earth 
orbit eases these problems considerably because the droplets 
are not falling and so can be positioned by moving the air near 
them. Furthermore a small simulated and controlled gravity 
force is possible with a rotating apparatus in which centrifugal 
force acts like a much lesser gravity than on earth as long as 
it is needed. With lower gravity applying throughout the 
collision trajectory it is actually necessary to use larger, 
more easily controllable droplets. To model the droplets in 
clouds one must maintain the same dynamical situation. That is, 
the Reynold's numbers of the droplets used must be the same as 
those on earth. Analysis shows that this is the requirement 
that 

gr 3 = constant 
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where g is the gravitational acceleration and r is the droplet 
radius. Thus at a . gravity 0.001 of the earth's one may use 
droplets ten times as large.’ In addition they would fall only 
a tenth as fast. 

Description of Program to Date 

^ * 

In this project we have begun the study of a system for 
performing such experiments in orbit. The aim is to produce 
a system that is mainly self-controlling. Schematically the 
apparatus consists of a long tube which is rotated about a 
line perpendicular to its axis. The droplets are injected 
into the tube and there are subjected to centrifugal force. 
This provides a controllable amount of "gravity" since the 
rotation of the tube is by a stepping motor under computer 
control. Also the tube may be shifted along its length across 
the axis of rotation. This allows the droplets to be moved 
from positions near the axis of rotation to positions farther 
out. At the nearer positions the droplets experience little 
force and there is more time for the human operator to provide 
necessary information 'to the controlling computer. When the 
droplets are at some distance from the axis of rotation, the 
tube may be slowly shifted to offset their rotation. This 
causes the drops to stay at a constant radius and so see a 
fixed gravity. Eventually the droplets collide with the end 
of the tube. Thus one must make sure the events of interest 
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can occur within a space limited to a meter or so of total tube 
length. The actual experimental procedures would be as follows. 

The apparatus is provided with an optical system which 
allows a view of the droplets from above and from the side to 
facilitate aligning them. A system of prisms removes the 
rotation so that a stationary observer may view the droplets 
as if they were fixed. Two droplets are injected into the tube. 
They are aligned along the length of the tube with the larger 
placed so that it will fall into the smaller. The tube is 
shifted by the computer to place the droplets at the desired 
radius. Then the droplets are held at that radius until the 
one goes by the other or the end of the tube is reached. 

The injection of the droplets is not precisely controllable. 
There will be random variations in the droplets' positions and 
variations in the size of the droplets. Thus the drops must 
be aligned each time. Also one must discover which droplet is 
heavier to do -the alignment correctly. When the droplets are 
held at a fixed radius, one must shift the tube at a precise 
rate which depends on the size of the droplet. Fortunately, 
the radius determination may be made part of the process of 
alignment. The droplets' own response to manipulations of the 
apparatus gives away its radius. 

Two methods have been used to manipulate the droplets: 
viscous drag to rotate the droplets' positions and shifts of 
the tube along its length to move the droplets from one place 
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to another. If the rotational rate of the apparatus is changed, 
the air within reacts variously depending on position. Far 
from the axis of rotation the air simply follows the motion of 
the tube as if it were rigidly connected. (There is a small shift 
in which barostatic pressure changes in accordance with "gravity" ; 
but this is very small in the cases considered here.) Near to 
the axis the tube can only act indirectly on the air through 
viscous drag. The air gradually reaches the new angular velocity 
through the relatively weak viscous forces. The scale of 
distances here is provided by the diameter of the tube. "Near" 
means less than the tube radius and "far" means more than a few 
radii. In practice a movable "squirrel cage" would be used. 

This would be a rotatable cylinder that could be moved in and 
out of the tube with minimal disturbance to the droplets. It 
would be rotated until the droplets had been turned far 
enough, stopped and then extracted from the tube. Two of these 
situated at right angles would be necessary to align the 
droplets one above the other. An apparatus of this type would 
have to be calibrated "in flight". It would be difficult to 
estimate beforehand the rate at which a wire squirrel cage 
transfers its rotation to the enclosed air. Except for this 
undetermined parameter the situation is remarkably simple. If 
one looks at the air long after the rotation of the cage has 
been stopped, one sees that the air has rotated as a solid body. 
(This follows mathematically from the linearity of the equations.) 


The droplets do not exactly follow the motion of the air but 
tend to fly out from the center. This depends on the droplet 
radius, and hence may be used to estimate the radius. One need 
only measure the distance from the center of rotation before 
and after the cage has been spun. One may then give a radius 
estimate without having to know exactly how the cage was spun, 
for how long, etc. Unfortunately this measurement is sensitive 
to errors in measurement and care must be used in applying it. 

The second maneuver available is shifting the tube along 
its length. This is necessary for moving the droplets from 
the center where they are aligned out to the position where 
they are allowed to collide. One uses it to hold the droplets 
at the chosen distance while they fall and to help center the 
droplets in the tube while they are being aligned. An additional 
use is in gaining radius estimates. One shifts the droplets 
to a distance from the center, leaves them there while the 
apparatus rotates, and returns to the center. The amount that 
the droplets shift depends on the radius and so gives an estimate. 
At this point one may discover that one has set the heavier 
droplet below the heavier and the squirrel cage must be used to 
reverse them. One may also have to abandon the droplets in 
favor of a new pair. If the droplets are nearly equal in radius 
while being relatively far apart, the lighter one can fall faster 
than the heavier because it feels more gravity, being farther 
from the axis of rotation. Also collision may not occur until 
after the droplets have reached the end of the tube. 


A program has been written which simulates the operation 
of the experiment. It consists roughly of two parts. One 
part picks droplets of random size and places them randomly 
about a point in the tube. This simulates the drops from the 
droplet generator. The droplet generator can be a vibrating 
needle from which charged drops are extracted from the droplet 
stream by an electric field. When a droplet is needed the 
charging mechanism is turned off and the neutral drop traverses 
the field region to enter the tube. The program then simulates 
the actual response of the droplets to manipulating the apparatus . 
The second part, and only part that would actually be flown with 
the instrument, starts with the nominal radius of the droplets. 

It does its own simulations and runs the droplets through the 
same maneuvers using the estimated droplet size. It uses the 
differences between the "real" and the simulated drops to 
estimate the radii. It aligns the droplets and indicates whether 
the droplets can be run to a collision encounter within the 
confines of the apparatus after each spin of the squirrel cage, 
shift of the tube, etc. In this simulation the operator is 
given a display of the position of the droplets on a CRT and 
must indicate to the computer the positions of the droplets by 
adjusting the crosshairs on the screen to coincide with a drop 
just as he would through using the optical system of the actual 
experiment. These are the only responses required of the 
operator. The rest of the decisions are made by the computer. 
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This current version runs using the University of Nevada 
timesharing system but is very slow as timeshared intervention 
is needed repeatedly and the transmission rate is too slow. 

It does not provide a view of things as they happen. It is 
only feasible to display the positions of the droplets when a 

> 

response is needed from the operator. 

It is planned for the future that a version will be 
produced which runs on a minicomputer. When certain hardware 
enhancements are installed it is hoped that this version will 
run at nearly real time giving continuous real time simulation. 
This will provide needed experience to assess the ability of 
the operator to provide responses quickly enough and accurately 
enough to operate the experiment. This stage should also show 
any problems not anticipated at this stage. 

Summary 

The simulation experiment has progressed to the stage where 
most of the conceptual problems have been sorted out. The next 
phase is to implement the simulation in real time to show better 
the practical aspects of the experiment. 
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1. Progress during the reporting period 

During this month the software for simulating the motion of 
water droplets in a rotating reference frame with air motion was 
written. This is general enough to be used in all the cases needed. 
It was applied to the case motion inside a spinning "squirrel cage". 
Also added this month was the ability to produce hard copies of the 
CRT displays. This includes software for drawing lines and points 
plus character generating software for reproducing the labels from 
the CRT displays. Included with this report are two plots used to 
help verify the software. Figure 1 shows motion of the droplets when 
the squirrel cage is turned once and stopped, and Figure 2 gives the 
motion for one half revolution. 
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The squirrel cage (not shown) rotates about the point in 
the center. The position of each droplet is shown each 1/6 
second and every one second a line is drawn between the two 
droplets to clarify their relative positions. This illustrates 
how the air follows the spinning motion of the squirrel cage 
only after some delay. The inner droplet does not move much 
until after the first second. It continues to move for several 
seconds after the cage has stopped. It may be shown that the 
air will rotate just as far as the cage. If the cage is 
rotated one turn, the air after lagging behind will end up 
moving exactly one revolution when sufficient time has elapsed 
for the motion to come to rest again. This is not true for 
the droplets. Note that the angle of lag is bigger for the 
outer droplet. 

There is also considerable radial motion, especially in 
the 360° case. The algorithm for aligning the drops uses 
rotations mainly less than 90° where these effects are smaller. 
Also it spaces the droplets so that they are at the same radius 
and the centrifugal forces act equally. So the main effect is 
that one underestimates the angle the squirrel cage should be 
turned. This was not compensated for in the earlier time-sharing 
version of the program. It often increased the number of steps 
to align the droplets. Compensation will only be added to the 
current program if it seems necessary later on. 

This motion provides the initial basic maneuver to adjust 
two drops which are injected into the tunnel at close but random 
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separations. This maneuver enables the vertical alignment 
(relative to the radial center line of the rotating tube) to be 
changed predictably and at will. The aim of the experiment is 
to produce two drops of measured size in the centrifugal force 
field at about 10 cm from the axis of rotation. These drops 
need to have a known separation along the centrifugal force 
direction and a known sideways separation of a fraction of a 
drop diameter. The operator will then need to note if coalescence 
occurs when the bigger drop catches up with the smaller one. 

This stage of the model is aimed at simulating the initial 
plan's for lining up the drops and determining their sizes. 

The early stage in the proposed experiment can be well 
represented mathematically but the final stage when the drops 
are less than one diameter apart needs to be verified against 
the sophisticated numerical treatments available, because of 
its vital importance in rain formation processes in the atmos- 
phere. Other physical effects such as the role of surface 
phenomenon in the final stages before contact between the drops 
can be checked in the actual experiment by using water containing 
surface active agents, and drops formed from non-polar fluids 
other than water. 

Once a viable set of maneuvers has been generated in this 
simulation the final specification of the software will enable 
the space vehicle software to be written without regard to the 
problems of cloud microphysics which dominate this feasibility 
and design stage. 
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Fig. 1. Motion of droplets within "squirrel cage" rotated 360° 
and stopped. Position shown at 1/6 second intervals and line 
drawn between droplets once per second. (Squirrel cage not shown.) 


n 
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Fig. 2. Same as Fig. 1 with rotation of 180°. 



4 


5 


EREOSHNG FAC 


A'JT FiJUfiEJi 


APPENDIX 5 

Monthly Progress Report, 15 March 1976 


/ 


Monthly Progress Report 
Prepared for 

George C. Marshall Space Flight Center 
Marshall Space Flight Center, 
Alabama 35812 


CONTRACT NUMBER: 
TITLE OF CONTRACT: 

CONTRACTOR: 


PRINCIPAL INVESTIGATOR: 
MONTHLY PROGRESS REPORT NO.: 
REPORT FOR THE PERIOD: 

DATE OF THIS REPORT: 

AUTHOR: 


NAS 8-3 1441 

Preparatory Studies for Zero-g 
Cloud Drop Coalescence Experiment 

Desert Research Institute • 

Energy & Atmospheric Environment Center 
University of Nevada System 
SAGE Bldg. , Stead Campus 
Reno, Nevada 89507 

James W. Telford 

9 

January 21, 1976 to February 20, 1976 
March 15, 1976 
T. S. Keck 


1. Progress during the reporting period 

This month the problem of aligning water droplets in the 
zero-gravity chamber ,was addressed. Certain refinements were 
made in the alignment algorithm. 

Last month there were included with the report figures 
showing the affect of rotating a "squirrel cage" about the two 
droplets. One effect noticed was that the droplets moved through 
a smaller angle than the squirrel cage. From several numerical 
experiments a simple correction procedure was derived to predict 
just how far a given droplet would turn.- This procedure was 
added to the alignment algorithm previously used. There was a 
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great enhancement. Alignments normally took four to six motions. 
Now two are usually all that are needed. 

Included with this report is a plot generated during program 
execution. This shows the process of. alignment of two droplets. 
The viewpoint is that of an observer rotating with the tube. The 
center of rotation for both the tube and squirrel cage is marked 
in the center. The droplets start at the positions marked "A” 
and their positions are shown thereafter at 1/6 second intervals. 
The droplets started at the randomly chosen points A. It is 
desired to bring them to a new position elong the center line 
of the tube straddling the center of rotation. First the squirrel 
cage is rotated to make the droplets straddle the center line. 

They end up at B. Then the whole tube is shifted left to place 
the center of rotation on the line segment joining the two 
droplets. The resulting position is C. Finally the squirrel 
cage is rotated to place the heavier droplet to the left of the 
other. (Currently this decision is made using the actual size 
of the droplets. The radius-determining algorithms have not 
been implemented yet.) The final result is positions D which 
are close to what was desired. 

2. Plans for the next reporting period 

In the next month the droplet-radius determining procedures 
will be added. It is hoped to have hardware then to run the 
displays at full speed. 
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1. Progress during the reporting period 

In this report it would seem opportune to present the mathe- 
matical basis for the work under way. We will present the equations 
used in the numerical simulations. We assume that the small 
droplets obey Stokes' Law as they fall through the air, i.e. they 

feel a force F = -6irr,r (v-v . > 

dll 


where n = dynamic viscosity of air 

r = droplet radius 

v . = air velocity 

dir 

Relative to the rotating experimental chamber we then have the 
equation of motion, 
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Then using 


_ 6‘trnr _ Sfrnr _ 9 n 

K - m 4/3 irpr 3 2pr 2 

= angular velocity vector of rotating system 

= radius vector of droplet 

= density of water (reduced by density of air) 
= x velocity droplet 
= y velocity droplet 
= x velocity air 
= y velocity air 
a difference approximation of 
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U (t+At) -U (t ) 


etc. 


U (t+At) 
V(t+At) 
x (t+At) 
y (t+At) 


= (l-KAt)U + 2coAtV + a) 2 xAt + tcAtU, 

a 

= -2o)AtU +' (l-KAt)V + a) 2 yAt + KAtV • 

a. 
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= x + At U (t+At) +U 1/2 


= y + At 


V(t+At)+Vj/2 


These equations will be numerically stable if all coefficients. 

are less than 1 in magnitude. This is satisfied if 

2 4 r 2 1 

At < — = - 3 — and At < 

k 9n 2 oj 

These equations give the motion in all the cases needed to 
simulate the motion of the droplets. When the tube enclosing 
the droplets is shifted they feel an air velocity in the direction 


of movement. The shock waves in air set up by starting the 
tube into motion, etc. occur on a time scale much less than 
the reaction of the droplets to Stokes' force and we may 
simply assume that the air follows the motion of its enclosure. 

The other case this equation needed was for motion in 
a rotating cylinder or "squirrel cage". Here we must integrate 
the air motion separately. Radial centrifugal effects are 
small and are dropped; Starting with the Navier-Stokes 
equation in a rotating frame 


dv 

dt 


-a, 


-2cjxv + urR - — Vp -vVxVxv 


and dropping all terms in the radial direction, we have 

3ft _ .3 3ft 3 2 ft ' 

3t " Vl r 3r 3r* ; 


where ft = angular velocity of air 

v = kinematic viscosity of air 
Applying a difference approximation we obtain 


ft^ (t+At) = 


, -I 2vAt. r vAt 

(1 -snr->‘'i + &jt 


(1 + 2 <i-l) )J2 i+l + (1 ~2 (i-1 ) ) n i-l 


where r^ = Ar(i-l) 
ft i = ft ^r ^ , t ) 

Numerical stability will be obtained if all coefficients are 
less than 1 in magnitude. This holds if 


This is more restrictive than the limits on At given for the 


droplet motion equations. When simulating the motion of the 
droplets in the rotating cylinder, the air velocity is 
calculated from the above equation by interpolation. 

When one is using the rotating cylinder to align the 
droplets, there are precise angles through which the droplets 
must turn. The air inside acts like it is elastically connected 
to the cylinder. When the cylinder- is rotated through a fixed 
angle, the air inside eventually stops after going through 
the same angle. The droplets lag behind the air and do not 
travel as far. By numerical experiment it was found that a 
linear correction factor would compensate quite nicely. 


desired 


= ( 1-0 . 06R) 9 


required 


where R = distance of droplet from axis of rotation 

9 desired = an 9^ e droplet is to turn 

0 required = an 9 le that cylinder must be turned 

When two droplets must be positioned, it is sufficient 

to use the radius of a point midway between them. To estimate 

the radius of a droplet one takes the droplet motion equation 

and assumes that the radial component of acceleration is small. 

(Not true when the appratus is shifted relative to the axis 

of rotation, but good enough otherwise.) This reduces the 

equation to A _ 2pr 2 w 2 R 

9n 

notation as before, except that here to is the total angular 
velocity of the droplet. 
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t 

» 

Let ft (t) = a ) 2 (t ) dt 

Jo 

■ifi.ti.LX ) r 

then R = R Q e 'in 

Suppose the droplet has a true radius of r , but one has 

a 

estimated the radius to be r . If the predicted position 
is not too different from the actual position, the two values 
for ft(t) will be about the same and’ one may eliminate it from 
the two equations for R.' This gives 

/ N 2 , ’ 

r a _ lo 9 R a - log R 0 

r^J “ log R e - log R 0 

where R 0 = initial position of droplet 
R q = predicted position 
R a = actual position 

Some care must be given in using this formula. If the droplets 
are allowed to drift too far, the correction will not be too 
accurate, but will still adjust in the correct direction. If 
insufficient drift has been allowed, then errors in measuring 
R a becomes important. In fact small random errors could give 
wildly different estimates. In the program R is shifted by 
the probable error and if too. great a change in the radius 
correction results, no estimate is made. 

During this month work was done to debug the droplet 
radius estimation procedures. This is not yet complete. Also 
considered were procedures to compensate for the effects of 
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r '\ 


coriolis force on droplet alignment. This becomes significant 
when droplets are shifted from a point near the axis of 
rotation out to the position where they are to collide. 

• 9 

This month the effects of coriolis force on the relative 
alignment were simulated. To study the dynamics of collisions 
one must align the droplets quite closely. On moving droplets 
from near the center of rotation out to an appreciable radius, 
coriolis force changes the alignment. Thus it is necessary 
to compensate for this by adjusting the alignment before moving 
the droplets out to the fixed radius. Simulations of this 
were done using the University of Nevada CDC timesharing system. 

Work on this project has come to a halt waiting for the 
return of the MAC-16 computer and the start of the next 
contract period. 

2. Plans for the next reporting period 

Little work on the MAC-16 minicomputer programs may be 
done in the next month because the computer has been returned 
to the factory for hardware improvements. Included is high- 
speed interface for the CRT and wiring for a set of multiplexer 
data channels. The data channels themselves are not bein' 
•purchased at this time. 
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1. Progress during the reporting period 

Work continued on the predicter formulas. These give the 
procedure for moving a pair of droplets from their initial positions 
to the location for the desired collision. So far it has been 
assumed that the droplets have radii of 33 ym and 35 ym. A set of 
third order least square fit formulas was produced (three formulas 
with all terms to the third order in the four initial position 
coordinates) . These formulas worked well over a wide range of 
initial positions. The errors tended to have the same sense for 
both droplets. Collisions did not occur exactly at the target 
position, but they did occur, and were near the target. 
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f 

The formulas are extremely unwieldy. The 105 coefficients 
would become 525 if the size of the droplets were allowed to 
vary and terms only to the second order in droplet radius were 
retained. The formulas represent a large amount of computation. 

Solutions are obtained over the whole range of circumstances 
that may occur. Then the least square procedure compresses 
this into a form that requires much less computing to evaluate 
(even with 500+ coefficients!). Another approach would be to 
do some of this computation in flight. A simpler set of 
prediction formulas would be used to obtain rough values for 
the alignment. Once the computer has determined values for 
the droplet radii, it could then proceed to compute more 
accurate values over a small range of droplet positions. This 
could be "in the background" with results only needed in the 
final stages of the operations. The computer would proceed to 
move the droplets into positions near those for which it is 
determining values. An interpolation would- then give the 
information needed to effect the droplet collision. 

2. Plans for the next reporting period 

In the next reporting period the details of this on-board 
computation procedure will be proved further. 
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1. Progress during the report period 

In this month an improved' procedure for determining droplet 
radii was .developed. This was developed from a closed-form 
solution to the equation for droplet motion in still air. 

If the air is still in a rotating frame of reference the 
equations of motion of a droplet are 

s!* - 2U Is + - k as 

at 2 dt dt 


i 2 

dt 


£2. = - 20 ) 

2 dt 


0) 


1 i dy 

y - k at 


where 


(x,y) is droplet position 
oo is angular velocity of frame 
k is given by Stokes' Law as 


9U 
4r 2 


1 






n is viscosity of air 
r is droplet radius 
Let z = x+iy. Then, d 2 z 


at = -(K+ 2 o>i)|| + u 2 z 


with general solution. 


z(t) = A exp ( t) + B exp ( t) 


A = |( u , +2 i i z .> 


B - - |< u 0 +2 t i 2 o> 

a = k+2wi 


6 - (k 2 +4oji) ^ 


z„ = z (0) 


u„ = 


tt'°> 


Transients die out quite rapidly with a time constant of 
about 40. So we may take B = 0. Then 

z (t) = z 0 exp t) 

This shows how unimportant the process is of injecting 
the droplets into the chamber. Only the position that this 
leaves the droplets matters. Separately the real and imaginary 
parts 


a + ci = =2+£ 


x(t) = (x q cosst - y 0 sinet)e 
y (t) = (y.coset + x 0 sinet)e 


R(t) = (x 2 +y 2 )^ = R(0)e 6t 


fit 


fit 
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Thus the radius vector of the droplet increases exponentially. 


Evaluating for 5 , 



reverting the series , 


1 

k 


6 ,, _S 2 * 

— (l+5-=— + 33 + 

O 2 “v 

OS 2 OS 


.) 


r 2 „ 2nf (i + 5«f) 

4u> as 


(33— < 5xl0** 4 ) 

as 4 

Thus the radial motion of the droplet gives the radius 
of the droplet through a simple formula. In practice one can 
determine 6 by performing a least-square fit from several 
positions of the droplet. 

The solution of the droplet equation will be very useful 
to the simulation programs, which are still needed when the 
air is in motion. For example, the condition B = 0 gives, 

u o z o * (S+ei)z 0 , 

i.e. an initial velocity for any given initial position. 


2. Plans for the next reporting period 

In the next month these results will be used in the further 

development of a scheme for affecting droplet collisions. 
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1. Progress during the report period 

One part of the control of this experiment has proved quite 
complicated. This is positioning a pair of droplets so that they 
will collide at the desired place. It is complicated by the ro- 
tation of the apparatus. Falling droplets are forced sideways as 
they move by Coriolis force. One must compensate before hand for 
this with a small shift to the opposite side. Accurately predicting 
this small shift has been a problem. Given unlimited computation 
time, this could be solved by trial and error. This can be stated 
as the following: The droplets are at A and B at present time. 

Find operations that result in their collision near C at a later 
time. Each guess requires a simulation run to determine if it 


works. This requires time which eventually runs out since the 
droplets continue to move as computations go on. One solution 
that was tried was to do ail the computation ahead of time. 

Many simulations were done for representative situations and 
then a least-square fit was done to fill in the gaps. This 
proved unworkable when a sixth degree polynomial in six variables 
was inadequate. At this time an intermediate solution seems work- 
able. When the representative solutions for the least-square fit 
were generated, a successive approximation method was used. 
Convergence was quite fast (2 or 3 trials) once an approximate 
solution was found. Thus, for the real-time case, the approximat- 
ing polynomial need only be accurate enough to come into the use- 
ful range of the interative technique. 

The following procedure is being investigated. One predicts 
the droplet positions at a time far enough ahead to do, say, five 
complete simulations. The predicted position is substituted into 
a polynomial formula to obtain a trial solution. The trial solu- 
tion is interated upon until either it converges or time runs out. 
2. Plans for the next reporting period 

In the next month approximating procedures will be investigated 


further . 
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Appendix 10 

Mini-Computer (MAC 16) Coding 



4 # 

DROPLET SIMULATOR 


4 

ENTRY OAt COMP 


4 

ENTRY OFCOUT 


4 

ENTRY MOOFiQMOnOtOTNIiRDCORD 


4 

entry pak.pkp 


4 

ENTRY Mqo » ESFFNQ 


4 

ENTRY LOG? 


4 

ENTRY X0EE-* YOFE, SCALE 


+ 

EXTRN Pi OT»SYMPOl 


+ 

EXTRN ENFG,EPACT 


+ 

EXTRN EMIJL *EADD*F51JR» EDI V*NORM» FLOAT* FIX 


+ 

EXTRN XPOSfYPOS 


+ 

EXTRN XLOC» YL OCsMARK 


+ 

EXTRN CRT,PKP] ,RLEN2 


+ 

EXTRN MOVE 


+ 

EXTRN TRIGfSIN.COS 


+ 

OPG T80 n 

0800 

0 481 + TURN SKP 1 

0801 

5000 + 

JMP M 1 7| 

080? 

0501 + 

SEX H 

0 803 

0D04 + 

LOI 4 TURN OFF TTY INTERRUPTS 

0804 

0F46 + 

ECO 4 » 6 

0805 

5?04 + 

JMP *-l 

0 8 0 6 

C001 + 

LOX =S74 

0807 

0002 + 

1,0 A ==K| OK 

0808 

0740 + 

SAX 0 

0809 

0540 + 

CLA 

0 8 0 A 

0743 + 

SAX 3 

08 OR 

05C1 + 

RFX H 

0 8 0 C 

D003 + 

LOA 111 

080D 

6004 + 

STA DR 

OBOE 

0005 + 

LOA 111 + 1. 

0 8 0 F 

6006 + 

STA DR+1 DR=1/11 

0810 

4007 + 

JMM EMUl 

0811 

GCFD + 

DC DR » DP * WS 

081? 

0 CFD 


0813 

0001 


OR 14 

0008 + 

LOA VJS 

0815 

6009 + 

STA DT 

0816 

0 0 0 A + 

LD A WS+1 

0817 

0801 + 

ADI 1 

0818 

600B + 

STA DT + 1 DT=?DRtf*? 

0819 

4007 + 

JMM EMUL 

0 8 1 A 

0CF9 + 

DC NU,DT»A A-NIJ#DT 

0818 

GOFF 


0 8 1 C 

0023 


08 ID 

400C + 

JMM EDIV 

081 E 

0023 + 

DC A i WS * B B=A/OR**2 

0 8 1 F 

0001 


0 8?0 

0025 


0 8? 1 

0000 + 

LD A R 

0 8?2 

600E + 

STA C 

0 8?3 

OOOF + 

LDA B+l 

0 8?4 

0801 + 

ADI 1 

0 8?5 

6010 + 

STA C+l 

0 8?6 

4011 + 

JMM ESUR 

0 8?7 

0003 + 

DC D 1 *C,C C=1-?B 

0 8?8 

0027 


0 8 ?9 

0027 


0 8? A 

0010 + 

LDA C+l 

0 R2B 

0901 + 

SRI 1 

08?C 

6010 + 

STA C+l 

0 8?D 

4012 + 

JMM ERACT 

08?E 

0D27 + 

DC C C SCALED ®R1 

0 8?F 

DOOF + 

LDA B+l 

0830 

0801 + 

ADI 1 

0831 

600F + 

STA B+l 


ORB? 

4018 + 

JMM FP ACT 

0R33 

0025 + 

nc B R 5CAI FO ®R— 1 OR 4 

0R34 

D00F + 

1.0 A C. 

0835 

6013 + 

STA CR 

0836 

no oo+ 

LOA B 

0R37 

6014 + 

?T A RR 

0R3R 

400C + 

JMM FDIV 

0P39 

0CFF + 

DC OT , p t , OROTF 

083A 

OCEA 


0R3R 

OCFC 


0R3C 

4007 + 

JMM FMUL 

0R3D 

0CF4 + 

OC OMEGA «0T < C3 

0 83F 

0 OFF 


0R3F 

0 CF5 


0R40 

4007 + 

JMM FMIJI 

0841 

0CE4 + 

DC OMEGA, C3,C4 

0 R42 

0 CF5 


0R43 

0 OF 7 


0R44 

4015 + 

JMM T W I C 5 

0R45 

0CF5 + 

OC C3 

0846 

4007 + 

JMM FMUL 

0847 

0CE4 + 

DC 0MFGA.0MFGA,0M5? 

0 R4B 

0CF4 


0849 

OOF7 


0 B 4 A 

400C + 

JMM FDIV 

0R4B 

OCFP + 

OC COFF,OMS?,XHCOF 

0R4C 

0DF7 


0 R4D 

OFD?. 


0 B4F 

0016 + 

LOA CALCOMP 

0R4F 

04A4 + 

5 AZ 4 

0850 

4017 + 

JMM PLOT INITI ALI7F PLOTTFR 

0 B5 1 

0CF1 + 

DC FOUR, ONE, -1 

085? 

OCFO 


0853 

FFFF 


0B54 

4007 + 

JMM FMUL 

0855 

0007 + 

DC M400 • , OT , TINC 

0 B56 

OCFF 

0857 

0009 


0858 

4018 + 

JMM FIX 

0 B59 

0DD9 + 

OC TINC 

0B5A 

0019 + 

LOA TINT 

085B 

601 A* 

STA TINO+1 

0B5C 

5?CR + 

JMP SKIP 


085D 

?0 ] R+JURFR 5TX TURX 

085E 

D01C + 

LDA FALL 

088F 

0 4 A 1 + 

SA7 1 

ORAf) 

5?8D + 

JMP HFRPST 

0861 

4010 + 

JMM MOVF 

086? 

0DF0 + 

DC 0350., SCALE 

0863 

0DF4 


0864 

401E + 

JMM 7ERD 

0865 

OCFF + 

DC X0FF,Y0FF,0 

0 866 

0CF1 


0867 

0000 


0868 

400C + 

JMM FDTV 

0869 

0 0F? + 

DC 014. • SCALF , WIDTH 

0 86 A 

0 DF 4 


0 86R 

I86 0 


086C. 

40] F + 

JMM CRT DRAW TURF 

0860 

OOP3 + 

DC Ml .46, Ml .03*4 

086E 

0DR7 


086F 

0004 


0870 

401F + 

JMM CRT 

087] 

0DR5 + 

DC Dl. 46. Ml. 03,? 

087? 

00R7 


0873 

000? 


0874 

401F + 

JMM CRT 

0875 

0DR5 + 

DC ni .46.D1 . 03,4 

0876 

0089 

0 877 

0 0 04 


0878 

401F + 

JMM CRT 

0879 

0DR3 + 

DC M], .46*01 . 03,? 

0 87 A 

0DR9 


0 8 7R 

000? 


0 87C 

40?0 + 

JMM MSG 

087D 

0 889 + 

Dr PLX, PLY, PUIS 

087E 

0 88R 


0 8 7F 

oono 


08R0 

40?0 + 

JMM MSG 

0881 

08C6 + 

DC M. 1 ,D. 1 *Z1 

08R? 

08C4 


0883 

0 F 0 ? 


0884 

40?0 + 

JMM MSG 

0885 

0RC4 + 

DC D.1»D.1»Z? 

0886 

0 8C4 


0887 

0 EO 4 


08R8 

58] R + 

JMP -»TI IPX 

0889 

87A1+PLX 

DC -.73469E-?B-7,~7 

0 88 A 

FFF9 


0888 

B4C5+PLY 

DC -»91R36E~?R~6,~6 

0 RFC 

FFF A 


0880 

D0?1 +HFPBSJ LDA = 84R7 

0 8 RF 

60?? + 

STA SCAI F 

0 88F 

0H07 + 

LDI 7 

0890 

60?3 + 

STA SCAlF+1 

0891 

0 0 ? 4 + 

LDA =5B3 

088? 

60?5 + 

STA XOFF 

0883 

0D03 + 

LDI 3 

0884 

60?6 + 

STA XOFF + 1 

0 89R 

400C + 

JMM FDIV 

0896 

0DF? + 

DC D14. , SCALF, WIDTH 

0897 

0 DE4 


0898 

I860 


0899 

401F + 

JMM CRT 

0 89 A 

08C? + 

DC Ml . ,D] ,4 

0898 

0 DO 3 

0 89 C 

0004 


0890 

401F + 

JMM CRT 

089E 

0DA9 + 

DC Dll ,D1 .2 

089F 

0D03 


08 A 0 

0002 


0 8 A 1 

40 1 F + 


ORA? 

0DA9 + 


08A3 

ODBD 


0RA4 

OOOA 


0 R A 5 

401F + 


0 8 A 6 

08C2 + 


0 8 A 7 

ODBD 


08 A a 

000? 


0RA9 

401F + 


ORAA 

0RC2 + 


08 AP 

ORC? 


0 8 AC 

0004 


0 8 AD 

4 0 1 F + 


08AE 

0 DA9 + 


08AF 

08C? 


0 8P 0 

000? 


0RP1 

40 1 F + 


0 8R2 

0DDR + 


0 8R3 

0 8C4 


0RP4 

0004 


08R5 

4 0 1 F + 


08B6 

0DDB + 


08R7 

0RC6 


0RP8 

0002 


0 RR9 

4 0 1 F + 


08RA 

0DBD + 


ORRB 

0D03 


ORRC 

0004 


0 8RD 

401F + 


08RE 

ODRD + 


08RF 

ORC? 


0 8C0 

000? 


08C1 

5R1R + 


0 8C2 

8000+Ml 

• 

0 8C3 

0000 


0 RC4 

6FR6+D . 

1 

0 8C5 

FFFD 


08C6 

999A+M. 

1 

0RC7 

FFFD 



JMM CRT 

dc nil, no. 0.4 


JMM CRT 
DC Ml.,ni).0,? 


JMM CRT 
DC Ml*, Ml. ,4 


JMM CRT 
DC Dll, Ml . ,? 


JMM CRT 

dc nin.,n.i,4 


JMM CRT 
DC D10.,M.1,P 


JMM CRT 

DC no. 0,01., 4 


JMM CRT 
DC DO. 0, Ml., 2 


JMP *TURX 
DC ^8000,0 
DC . IB-3,-3 
DC -.18-3, -3 


+ SKIP 

0RC8 401F + 

08C9 0044 + 

0 8 C A 0 046 
ORCR 0088 
OPCC DOHA 
08CD 0D70 + 

ORCF 0DR6 
OflCF 0D72 
0800 0088 

0801 OCFF + 

0802 0CF1 

0803 0CF8 
0804- 0FD8 + 

0805 OFOA 

0806 OOF? 

08n7 0000 
0808 0540+ 

^809 6027+ 

0 80 A 60?8 + 

0 BOR 6029 + 

OBOC 602A+ 

OROD 602R+ 

0 80E 602C + 

0 80F 602D + 

OPFO 0040+ 

0RF1 602E+ 

0RF2 602F+ 

0RF3 O01C+ 

0RF4- 04A1 + 

08F5 53A0+ 

0RF6 4030+ 

08F7 0048+ 

08F8 4030+ 

0 8F9 005C + 

08FA 4030+ 

0 8FR 0D4A + 

0 RFC 4030 + 

08FD 005F+ 

ORFF 4031+ 

ORFF 0D56+ 

ORFO 4031+ 

08F1 0D6A+ 

08F? 0032+ 

08F3 6033+ 

08F4 6034+ 

0RF5 D035+- 
0 RF6 6036 + 

08F7 6037+ 

0RF8 4038+ 

08F9 0044+ 

ORFA 4038+ 

ORFP 005R+ 

0 RFC 4038 + 

08FD 0D6C+ 

08FE 4038+ 

08FF 0082+ 

0900 0540+ 

0901 6039+ 

0902 6 0 3 A + 

0903 6036+ 

0904 603C+ 

0905 6030+ 

0906 603F+ 

0907 603F+ 

0908 6040+ 

0909 0001+ 

090 A 6041+ 


ISTSY 
JMM 7 FRf) 

DC U1*V1*U2*V? 


DC EX1 .FX?«EY1 ,FY? 


DC XOFF . YOFF . ANG 


DC UA,VA,VELO,0 


Ct A 

STA ESTF] 

STA ESTF? 

STA TNXT 
STA ITIMF 
STA IFPASS 
STA TEST 
STA MARK 
LDI 64 
STA GINS W 
STA PAWS 
LDA FALL 
SAZ 1 
JMP AUTM 
JMM PICKX 
DC XI 
JMM PICKX 
DC X2 
JMM PICKX 
DC Y 1 
JMM PTCKX 
DC Y? 

JMM PICKP 
DC PI 
JMM PICKP 
DC P? 

LDA RO SET ESTIMATED RADII TO NOMINAL VALUE 
STA E R 1 
STA ER? 

LDA RO+1 
STA ER1+1 
STA ER2+1 

JMM XCOPF CALC INTEGRATION COEFS 
DC 01 FOR PARTICLE 1 

JMM XCOFF 

DC Q? NO. ? •>, 

JMM XCOFF 

DC FQ1 PART 1. WITH EST RADIUS 
JMM XCOFF 
DC EQ2 NO. ? 

CLA 

STA VSH 
STA VSH+'i 
STA FITTING 
STA MV 1 
STA MV? 

STA 0 1 D 1 
STA DID? 

STA XTIMF 
LDI 1 
STA X RED 


09 0 R 

4010 + 

JMM MOVF 

A 

if 

090C 

0B5R + 

DC 030., TP 


0900 

ODAB 



090E 

4042 + 

JMM SHIFT COLLECT CROSSHAIR INPUTS 


090F 

0 540 + 

CLA 


0910 

60 3B + 

STA FITTING 


0911 

603C + 

STA MV 1 


0912 

603D + 

STA MV2 


0913 

603E + 

STA OID1 


0914 

603F + 

STA 0102 


0915 

0001 + 

LOI 1 niSPLAY RESULTS 


0916 

4043 + 

JMM MOOF 


0917 

401F + 

JMM CRT 


091 8 

OOR3 + 

DC Ml. 46, 0.5, 4 


0919 

0 0F6 



091 A 

0004 



0 9 1 B 

4044 + 

JMM DECOIJT 


091 C 

0048 + 

DC XI 


0 9 1 D 

4 0 44 + 

JMM DECOIJT 


091 E 

0D4A + 

DC Y 1 


091 F 

4044 + 

JMM DECOUT 


0920 

0056 + 

DC R 1 


0921 

401F + 

JMM CRT 


0922 

0083 + 

DC Ml. 46, 0.4, 4 


0923 

0 OFC 



092 » 

0004 



0925 

4044 + 

JMM DECnilT 


0926 

005C + 

DC X? 


0927 

40 44 + 

JMM DECOIJT 


0928 

005E + 

DC Y2 


0929 

4044 + 

JMM DECOUT 


0 92 A 

0 06 A + ‘ 

DC R2 


092B 

401F + 

JMM CRT 


092C 

0DB3 + 

DC Ml. 46, M. 4, 4 


0920 

ODFF 



0 92F 

0004 



092F 

4 044 + 

JMM OECOIJT 


0 93 0 

0070 + 

DC E X 1 


0931 

4044 + 

JMM OECOIJT 


0932 

0D72 + 

DC EY1 


0933 

4044 + 

JMM DECOUT 


0934 

007F + 

DC ER1 


0 935 

401F + 

JMM CRT 


0936 

OOR3 + 

DC Ml. 46, M. 5, 4 


0937 

OEOO 



0 93 8 

0004 



0939 

4044 + 

JMM DECOUT 


093 A 

0086 + 

DC EX2 


093B 

4044 + 

JMM OECOIJT 


093C 

0088 + 

DC EY2 


093D 

4044 + 

JMM DECOUT 


0 93E 

0094 + 

DC ER2 


0 9 3F 

0A47+WESC 

EDI 4,7 


0940 

533F + 

JMp #-l WAIT FOR ESC 


0941 

091B + 

SB I SIR 


0942 

0 4 A 1 + 

SAZ 1 


0943 

533F + 

JMP WE SC 


0944 

4010 + 

JMM MOVF 


0945 

0F39 + 

DC D.25.VSH 


0946 

0 005 



0947 

4045 + 

JMM FAOO 


0948 

0D72 + 

DC EY1 ,FY2»TP 


0949 

0088 



094 A 

ODAB 



094B 

D046 + 

LOA TP+1 


0 94C 

0804 + 

ADI 4 


0 94D 

0401 + 

SAG 1 


094E 

5360 + 

JMP XTEST 



094F 

4045+ ALIGN JMM F400 

0 95 0 

0D70 + 

DC FX1,FX?,TP? 

0 951 

0086 


095? 

ODAO 


0953 

4047 + 

JMM ATAM 

0954 

0DAB + 

DC TP,TP?,TWFTA 

0955 

ODAO 


0956 

0 OAF 


0957 

4048 + 

JMM FNFG 

0958 

OOAF + 

DC THETA 

0959 

0049 + 

L, DA THFTA + 1 

095A 

0 801 + 

AO T 1 

095R 

0401 + 

SAG 1 

0 95C 

5368 + 

JMP COMPFN 

0 950 

004A + 

LOA THFTA 

095E 

04R5 + 

SAN 5 

0 95F 

4011 + 

JMM FSIJP 

0960 

OOAF + 

OC THETA, 01, THFT 

0961 

0003 

096? 

00 AF 


0963 

5368 + 

JMP COMPFN 

0964 

4045 + 

JMM FAOO 

0965 

0 OAF + 

OC THFTA, 01 , THETA 

0966 

0003 

0967 

0 OAF 


0968 

404R+COMPEN JMM RADIUS 

0969 

0DAR + 

OC TP, TP?, TP 

0 96 A 

ODAO 

0 96B 

OOAB 


096C 

404C + 

JMM TWIST 

0 96D 

4045+ XTFST JMM FAOO 

096E 

0070 + 

DC E XI, EX?, TP 

0 96F 

0 D86 

0970 

OOAB 


0971 

0046 + 

LOA TP+] 

0972 

0 8 0 4 + 

ADI 4 

0973 

0401 + 

SAG 1 

0974 

5 3 7 A + 

JMP YTEST 

0975 

4040 + 

JMM HALF 

0976 

0DAB + 

OC TP 

0977 

4048 + 

JMM FNFG 

0978 

0DAB + 

OC TP 

0979 

4042 + 

JMM SHIFT 

0 97 A 

4045+YTEST JMM FAOO 

097R 

0072 + 

DC EY1,FY?»TP 

097C 

0 D88 

097D 

ODAB 


097E 

0046 + 

LOA TP+1 

0 97F 

0804 + 

AO I 4 

0980 

0 4R1 + 

SAN 1 

0981 

534F + 

JMP ALIGN 

0982 

0036 + 

LOA ER1+1 

0983 

F037 + 

CAA ER2+1 

0984 

538C + 

JMP IS1 

0985 

538 A + 

JMP IS? 

09R6 

0033 + 

LOA ER1 

0987 

F034 + 

CAA ER? 

0988 

538C + 

JMP IS1 

0989 

0500 + 

NOP 

09RA 

O04E+I52 

LOA =-l 

09BB 

0481 + 

SKP 1 

098C 

0D01+IS1 

LOI 1 

0980 

604F + 

STA WHICH 

098E 

4011 + 

JMM FSUR 

098F 

0086 + 

OC FX2,EX1,TP 

0990 

0 D7 0 


0991 

ODAB 


099? 

4011 + 

JMM FSUR 


0 993 

0994 

0995 

0072 + 

008P 

OOAO 

DC EYlfFYPiTP? 

0995 

D04F + 

LOA WHICH 

0997 

0404 + 

SAG 4 

0998 

4048 + 

JMM FNFG 

0999 

0DAR + 

DC TP 

0 99 A 

4048 + 

JMM FNFG 

099B 

OOAO + 

DC TP2 

099C 

4047 + 

JMM ATAM 

099D 

099E 

099F 

0DAD + 

0DA8 

ODAF 

DC TP2 » TP » THFT A 

09A0 

4048 + 

JMM RADIUS 

09 A 1 
0 9 A 2 
0 9 A3 

0070 + 

0D72 

ODAR 

DC EX1,FY1«TP 

09A4 

4007 + 

JMM FMUL 

09A5 
0 9 A 6 
09A7 

0DAF + 

0DF8 

ODAF 

DC THETA«nl .05»THFTA 

0 9 A 8 

404C + 

JMM TWIST 

09A9 

0540 + 

Cl. A 

0 9 A A 

6039 + 

STA VSH 

0 9 AB 

603A + 

STA VSH+1 

09AC 

53BE + 

JMP DOF ALL 


0 9 AD 

E02C+AUTM 

INC TEST 

09 AE 

4010 + 

JMM MOVF 

0 9 A F 

0CF3 + 

DP R 0 » R 1 

09R0 

0056 


09R1 

4-010 + 

JMM MOVF 

09R2 

0CF3 + 

DC R0,EP1 

0 9B3 

0D7E 


09P4 

401D + 

JMM MOVF 

09R5 

OOE9 + 

DC R02,R? 

09R6 

0D6A 


09R7 

4010 + 

JMM MOVF 

09R8 

0DF9 + 

OC R0?,FR? 

0 9R9 

0 D94 


09PA 

4038 + 

JMM XCOFF 

0 9RR 

0044 + 

DC 01 

09RC 

4038 + 

JMM XCOFF 

09RD 

0058 + 

DC 02 


+DOFALL LSTSY 

0 9RE 

4010 + 

JMM MOVF 

09RF 

0O7E + 

DC ER1 * XP + 2 

09C0 

0R7R 


09C1 

4010 + 

JMM MOVF 

09C2 

0094 + 

DC ER2 f XP + 4 

09C3 

0 B70 


09C4 

4007 + 

JMM FMUL 

09C5 

007F + 

DC F.RI 9 FR 29 XP + 6 

09P6 

0D94 

09C7 

0 R7F 


0908 

4007 + 

JMM FMtJL 

0 9C9 

0D7E + 

OC ERI 9 FRI 9 XP +8 

0 9 C A 

0D7E 


0 9CB 

0B81 


0 9CC 

4007 + 

JMM FMUL 

09CD 

0094 + 

DC ER29FR29XP+10 

09CE 

0094 

0 9CF 

0B83 


0900 

4007 + 

JMM FMUL 

0901 

0R63 + 

DC AP+?,XP+2.A0FF 

0902 

0B7B 


0903 

0B55 


0904 

4007 + 

JMM FMUL 

0 90S 

0B65 + 

DC AP+ 49 XP+ 49 WS 

0906 

0R7D 


0907 

0001 


0908 

4045 + 

JMM f A nn 

09ri9 

0001 + 

DC WS 9 AOFF 9 AOFF 

0 90 A 

0R55 


0 90B 

0B55 


09DC 

4007 + 

JMM FMUL 

090D 

0B67 + 

DC AP+ 6 .XP+ 69 WS 

09DE 

0B7F 


0 90F 

0001 


09F 0 

4045 + 

JMM FARO 

09E1 

0 DO 1 + 

DC WS9AOFF9AOFF 

09F2 

0 B55 

09F3 

OB 55 


09F 4 

4007 + 

JMM FMUL 

09F5 

0B69 + 

DC AP + 8 9 XP + 8 , WS 

0 9F6 

0B81 


09F7 

0001 


09F8 

4045 + 

JMM FAOO 

09F9 

0 D 01 + 

DC WS9 AOFF » AOFF 

09FA 

0B55 


0 9FB 

0 B55 


0 9FC 

4007 + 

JMM FMUL 

09ED 

0 B6B + 

DC AP+10,XP+10*WS 

09FE 

0B83 


09FF 

0001 



09F0 404F + 
09Fi odoi + 
09F? ORFF 
09F3 ORFF 
09F4 4045 + 
09F5 0P61 + 
09F6 ORFF 
0 9F7 0RF5 
09F8 4007+ 
09F9 OBRF + 
0 9F A 0R7R 
0 9FR 0D01 
0 9FC 4045 + 
09FD 0B6D + 
09FF 0D01 
09FF 0853 
0 AO 0 4007 + 
0 A 0 1 0R71 + 
0 A 0 2 0R7D 
0 A03 0D01 
0 A 04 4045 + 
0A05 0D01+ 
0 A 0 6 0BF3 
0 A 0 7 0RF3 
0 A 0 8 4007 + 
0 A 09 0B73 + 
0 A 0 A 0B7F 
OAOB 0D01 
OAOC 4045+ 
OAOD 0 DO 1 + 
OAOE OR 53 
0 AO F 0RF3 
0A10 4007 + 
0 A 1 1 0R7F + 
0 A 1 2 OBfil 
0 A 1 3 0D01 
0 A 1 4 4045 + 
0 A 1 5 0D01 + 
0 A 1 6 0 BF3 
0 A 1 7 0RF3 
0 A 1 8 4007 + 
0 A 1 9 0R77 + 
0 A 1 A OB 83 
0 A 1 B 0D01 
0 A 1 C 4045 + 
0 A 1 D 0001 + 
0 A 1 E 0 B53 
0 A 1 F 0 R53 
0A20 400C+ 
0 A? 1 0D4C+ 

0 A22 OCFF 
0A23 ODDE 
0 A? 4 400C + 
0A25 0D60+ 

0 A 26 OCFF 
0 A? 7 ODEO 
0 A28 400C+ 

0 A29 0DF7+ 

0 A? A ODDE 
0 A ?B ODDE 
0 A2C 400C + 
0.A2D 0DE7 + 

0 APE ODEO 
0A2F ODEO 
0 A3 0 4007 + 

0 A31 ODDE+ 

0 A32 ODDB 
0A33 0DE2 


JMM FADO 

DC WS » ADFF , AOFF 


JMM FADD 

DC AP » ADFF » AOFF 


JMM FMUi 

DC BP+?,XP+?,WS 


JMM FADD 

DC BP » WS , ASLOPE 


JMM FMUI 

DC RP+4,XP+4,WS 


JMM FADD 

DC WS, ASLOPE, ASLOPE 


JMM FMUL 
DC BP+6,XP+6,WS 


JMM FADO 

DC WS» ASLOPE. ASLOPE 


JMM FMUL 
DC RP+8,XP+8,WS 


JMM FADD 

DC WS, ASLOPE, ASLOPE 


JMM FMUL 

DC BP+ 1 0 * XP + 1 0 , WS 


JMM FADn 

DC WS, ASLOPE, ASLOPE 


JMM FUIV 
DC C11,DT,KA 


JMM FDIV 
DC C21 ,DT , K B 


JMM FDTV 
DC OMS2 , KA » KA 


JMM FDIV 
DC OMS?,KR,KB 


JMM FMUL 
DC KA, DIO., VELD 


h 


0A34 4048 + JMM FNEfi 

0A35 0 DF? + DC VELD 

OA36 4007+ JMM FMUL 

0AB7 0B59+ DC Ml 0 * * K A * LVFL 

OA38 ODDF. 

0 A39 0B5F 

0 A3 A 400C+ JMM FDIV 

0 ABB 0B5B + DC 030 . * DT » LWHTLF 

0 A 3C 0 CFF 
OABD 0R5D 

0 ABF 4018+ JMM FIX 

0 ABF 0R5D + DC LWHIL.F 

0 A40 4047+ JMM ATAN 

OA41 0P41+ DC OSLOPE*Dl,TP 

0A4? 0D03 

0A43 ODAR 

0 A 44 4011+ JMM FStJR 

0A45 0DAB+ DC TP * M . ?5 * SA XOM 

0A46 0B45 
0 A47 0 R49 

0 A4B 4050+ JMM SQPT 

0 A49 0B4D+ DC D?e*TP? 

0 A4 A ODAD 

0A4B 4011+ JMM FSUB 

0 A4C 0003+ DC D1»0SL0PE*TP 

0A4D 0?3’4l 
0 A4E ODAB 

0 A4F 400C+ JMM FDIV 

0A50 0DAD+ DC TP?*TP*TP? 

0A51 ODAB 
0A5? ODAD 

0A53 4007+ JMM FMUL 

0A54 ODAD+ DC TP? ? OOFF « PST? 

0 A55 0 B43 
0 A56 0B4B 

0A^7 D357+ LD A TEST 

0A58 04A1+ SAZ 1 

0A59 5?71 + JMP AGAIN 

0 A5 A 0001+ LDI 1 

0A5R 601C + STA FALL 

0 A5C 4043+ JMM MODE 

0 A50 4051+ JMM WIPE 

0 ARE 405?+ JMM TUBFR 

0 ASF 4011+ JMM FSUB 

0A60 0D5C+ DC. X?»X1,WS 

0A61 0D4R 
OAR? 0D01 

0 A63 D008+ LDA WS 

0A64 04D1+ SAG 1 MAKE XI THF DOWNWARD DROP 

0 A65 5 ? A 8 + JMP ACTION 

0A66 C053+ LDX = ~14 

0A67 D454+ LDA Ql+14.1 

0A68 6008+ STA WS 

0A69 D455+ LDA 03+14*1 

0A6A 6454+ STA Ql+l4*l 

0A6B DO 08+ LDA WS 

0 ARC 6455+ STA 03 + 14*1 

0A6D 0?01+ I NX 1 

0 ARE 5367+ JMP #-7 

0 A6F 53A8+ JMP ACTION 

0A7O + DS l SPACER 

0A71 0D01+AGAIN LDI 1 

0A72 4043+ JMM MODF 

0A73 0540+ CLA 

0A74 6008+ STA WS 

0A75 600A+ STA WS+1 

0A76 6056+ STA Y1 

0A77 6057+ STA Yl+1 



0A78 

6358 + 

STA IFPASS 

0 A79 

601C + 

STA FALL 

0A7A 

4052 + 

JMM TUBFR 

0 A7B 

E01C + 

INC FALL 

0A7C 

401D + 

JMM MO VF 

0 A7D 

0B37 + 

DC P0S1.X1 

0 A7E 

0 D48 


0A7F 

ODQD + 

LOI *680 

OABO 

4058 + 

JMM PAK 

0AR1 

430F + 

JMM LOCATF SET F T RST DROPLFT POSITION 

OAR? 

0D4P + 

OC XI, Y1 

0AR3 

0 D4A 


0 A 84 

430F + 

JMM LOCATF 

0A85 

0B4B + 

DC DST2 , WS DISTANCE to SHIFT TURF 

0 A86 

0001 


0 A 87 

401D + 

JMM MO VF 

0A8Q 

0OBD + 

DC 00.0, X2 

0 A89 

005C 


0 A8A 

401D + 

JMM MOVF 

OARB 

ODBD + 

DC 00.0, TP 

0 ARC 

ODAB 


0 A8D 

430F + 

JMM LOCATF 

OARE 

0D5C + 

OC X? » TP 

OA8F 

ODAB 


OA90 

0001 + 

LOI 1 

OA91 

4043 + 

JMM MODF 

OA92 

4051 + 

JMM WIPF 

OA93 

F01C + 

INC FALL 

OA94 

4052 + 

JMM TUBFR 

OA95 

4045 + 

JMM FAOn 

OA96 

0D03 + 

DC D1*TP,TP 

OA97 

ODAB 


OA98 

0 OAB 


0 A99 

4007 + 

JMM FMUL 

0 A9 A 

0DAB + 

DC TP, SAXON, SAXON 

OA9B 

0 849 


OA9C 

0B49 


OA9D 

401D + 

JMM MOVF 

OA9E 

0DB0 + 

DC DO. 0.Y1 

0 A9F 

0 DA A 


0 A A 0 

4010 + 

JMM MOVF 

0 A A 1 

0048 + 

DC XI, X? 

OAA2 

0D5C 


0 A A3 

4010 + 

JMM MOVF 

0 A A4 

OORO + 

DC DO . 0 , Y2 

OAA5 

0 D5E 


OAA6 

404R + 

JMM FNFO 

0 A A7 

0D5C + 

DC X2 


♦ACTION LSTSY 

0 A A 8 

C059 + 

LOX =-4 SAVF IN IT POSITION 

0 A A 9 

0 4 5 A + 

LOA Ql+8,1 

0 AAA 

673B + 

STA POS 1+4,1 

OAAB 

D45B + 

LDA Q2+R,l 

0 A AC 

673F + 

STA P0S2+4 , 1 

OA AD 

0201 + 

INX 1 

OAAE 

52A9 + 

JMP *-5 

OAAF 

401D + 

JMM MOVF 

0 ABO 

0B4B + 

DC DST2, DIST 

OAR1 

0B3F 


OAB? 

D357 + 

LDA TEST 

0 AR3 

0401 + 

SAG 1 

0 AB4 

52C5 + 

JMP CTH 

OAB5 

4007 + 

JMM FMUL IN I T VFL 

0 AB6 

0D0E + 

DC K A , X I ,1)1 

0 ABT 

0048 


0 AB8 

0044 


0 AB9 

4007 + 

JMM FMUL 

OARA 

ODDE + 

DC KA»Y1 ,Vl 



■ 


OARB 

ODAA 


0 ARC 

0 DA6 


OARD 

AO 07 + 

JMM FMUI 

OARB 

ODEO + 

DC KBtY?iV? 

OARF 

0 DBF 


0 AGO 

0 D5 A 


OAC1 

A 0 07 + 

JMM FMUL 

OAO? 

0 DEO + 

DC KB, X?, 112 

0 AC3 

0D5C 


0 ACA 

0D5P 



+ CTH 

LSTSV 

0 AC5 

A007 + 

JMM FMIJL 

0 AC6 

0R53 + 

DC ASLOPF.Xl .THFTA 

0 AC7 

0 DA8 


OACfl 

ODAF 


0 AC9 

A 0 A5 + 

JMM FADD 

0 ACA 

ODAF + 

DC THETA, AOFF,THFTA 

0 ACB 

0B55 


0 ACC 

ODAF 


0 AGO 

AO AB + 

JMM RADIUS 

0 ACE 

ODAB + 

DC X 1 » Y1 , f P 

0 ACF 

ODAA 


0 ADO 

ODAB 


OAni 

A385 + 

JMM TWIST 

OAD? 

OD05 + 

LDI 5 

0 AD3 

602F + 

STA PAWS 

0 ADA 

A01D + 

JMM MOVE 

0 AD5 

0D03 + 

DC D 1 » V S H 

0AD6 

ODDS 


0 AD7 

A01D + 

JMM MOVE 

0 ADR 

0 B3.F + 

DC D I ST, TP 

0 AD9 

ODAA 


0 ADA 

A01D + 

JMM MO VF 

0 ADR 

ODRD + 

DC DO. 0, VELD 

0 ADC 

ODE? 


0 ADD 

A3DC + 

JMM SHIFT 

oade 

A01D + 

JMM MOVE 

0 ADF 

0RA9 + 

DC saxdm.thfta 

OAFO 

ODAF 


OAF1 

A01D + 

JMM MOVE 

OAF2 

0R3F + 

DC D I ST , TP 

0 AF3 

ODAB 


OAFA 

A385 + 

JMM TWIST 

0 AF5 

A 0 07 + 

JMM FMIJL 

OAF6 

0DA8 + 

DC XI ,TSLOPE,TP 

OAR7 

ORAF 


OAFR 

ODAB 


0 AF9 

AOAS + 

JMM FADD 

OAFA 

ODAB + 

DC TP • T OFF ? TP 

OAFB 

0B51 


0 AFC 

ODAB 


OAFD 

0350 + 

LDA LWHTLE 

OAFE 

6 0 ?F + 

STA PAWS 

OAFF 

A01D + 

JMM MOVE 

OAFO 

0R5F + 

DC LVEL, VFLD 

0 A F 1 

ODE? 


OAF? 

F358 + 

IMC IFPASS 

OAF3 

A3DC + 

JMM SHIFT 

OAFA 

OD01 + 

LDI 1 

OAF5 

A0A3 + 

JMM MODF 

0 AF6 

A01F + 

JMM CRT 

OAF7 

0 RC? + 

DC Ml . ,M2. , A 

OAFR 

ODEB 


0 AF9 

0 OOA 


OAFA 

AO AA + 

JMM DECOIJT 

OAFB 

0DA8 + 

DC XI 

0 AFC 

AOAA + 

JMM DECOIJT 

OAFD 

ODAA + 

DC Y1 



OAFE 4044+ JMM DEODIIT 

OAFF 0D5C + DC X? 

OROO 4044+ JMM DECDIJT 

OBOl 0D5E+ DC Y2 

OBO? 401F+ JMM CRT 

0RO3 0 8C2 + DC Ml . * M3. i4 

OR04 0 DFD 
OB05 0004 

0R06 4044+ JMM DFCOIJT 

OBO 7 0B37+ DC P0S1 

0RO8 4044+ JMM DECOIIT 

OBO 9 0R3F+ DC DIST 

OBOA 4044+ JMM DFCOIJT 

OROB 0B49+ DC SAXON 

OBOC D357 + LDA TEST 

OROD 601C+ STA FA LI 

OBOE 505C + JMP $600 

+ # 

OBOF 205D+L0CATE STX LOCX 
OBI 0 0700+ LAX 0 

0R1 1 6315+ STA LOX 

OB 1 2 0701+ LAX 1 

OB 1 3 6316+ STA LOY 

OR 1 4 401F+ JMM CRT 

OB 1 5 0000 + L.OX DC 0 

0 R 1 6 OOOO + LOY DC 00,4 

0 B 1 7 0004 

OR 1 8 4045+ JMM F4RD 

0 R 1 9 16RQ+ DC XPOS , D 1 » XPOS 

08 1 A 0 D03 
0B1R 1 6RD 

OB 1 C 4045+ JMM FADD .. 

GRID 16RF+ DC YP0S,D1»YP0S 

OBI E 0D03 
OB 1 F 1 6RF 

OPPO 401F+ JMM CRT 

0B21 1 6PD+ DC XPOS , YPOS »? 

0R22 1 6RF 
0R23 0002 

0R24 405F+ JMM GIN MARKER DRAWN. INPUT 

0625 D05F+ LDA YPOS NO CHANGF IF Y<-1 

0B26 0405+ SAG NUVAl 

0B27 D060+ LDA YPOS+1 

0628 04D1+ SAG 1 

0B29 0482+ SKP NUVAl 

0B2A C05D+ LOX LOCX 

0R2B 07C2+ JMX 2 

0B2C C05D+NUVAL LDX LOCX SAVF NFW POS 
0B2D D061+ LDA XPOS 

0B2E 0340+ SIX 0 

0B2F 0062+ LDA XPOS+1 

0B3O 0341+ SIX 1 

0B31 0201+ I NX 1 

0B32 D05F+ LDA YPOS 

0B33 0340+ SIX 0 

0B34 D060+ LDA YPOS+1 

0R35 0341+ SIX 1 

0R36 07C1+ JMX 1 

+ 

0B37 OOOO+POSl DC 0, 0*0.0 
0P38 0000 
0B39 0000 
0R3 A 0000 

0B3B 0000+POS2 DC 0. 0*0,0 
0R3C 0000 
0B3D 0000 
0B3E 0000 

0R3F OOOO+DIST DC 0,0 


XHAIRS 


0R40 

0000 



0841 

8466 + 0SL0P5 1 

DC -.0301778-5,- 

0R42 

FFFR 



0 B43 

55 1 B + OOFF 

DC 

.36768-1 ,-l 

0 R44 

FFFF 



OB 4 5 

COOO+M.25 

DC 

-.258-1,-1 

0 846 

FFFF 



08^-7 

CO 0 0 + SAX A 

DC 

-.258-1 » - 1 

0848 

FFFF 



0849 

0000 +SAXON 

1 DC 0.0 

0B4A 

0000 



0 R4R 

0 0 0 0 + DST2 

DC 

0,0 

0B4C 

0000 



OP 40 

40 0 0 * 0 ? * 

DC 

2.82,2 

0R4E 

0002 



0 P4F 

DFD3+TSL0PF ! 

DC -1.0056182,? 

OP50 

0002 



0 R 5 1 

45A9+T0FF 

DC 

8 . 708R4 , 4 

0R5? 

0004 



0B53 

OOOO+ASLOPE 1 

DC 0,0 

0R54 

0000 



0B55 

R5C3+ AOFF 

DC 

-.298-1,-1 

0856 

FFFF 



0B57 

+ TFST 

DS 

1 

0B58 

OOOO+IFPASS 1 

DC 0 

0B59 

BOOO+MlO. 

DC 

-10.84.4 

ORB A 

0004 



0B5R 

7800+R30. 

DC 

3085,5 

ORBC 

noos 



0 BSD 

OOOO+LWHILF 

DC 0,0 

0B55 

0000 



OBSF 

OOOO+LVEL 

DC 

0,0 

0B60 

0000 



0B61 

40F4+AP 

DC 

. 10149F1B1 , 1 

0B62 

0001 



0 B63 

S2CB + 

DC 

• 66237F3R1 0,10 

0 B64 

0 0 0 A 



0865 

AD97 + 

DC 

-. 13186E4R11 , 1 1 

0R66 

0008 



0 B67 

RFBF + 

DC 

-.26321E6R19, 19 

0R68 

0013 



0 R69 

5175 + 

DC 

. 41708 F 5816, 16 

0B6A 

0 010 



0 B6B 

4B1F + 

DC 

.3077156819,19 

0R6C 

0013 



0B6D 

0A6B+BP 

DC 

. 1 0420F2R7 , 7 

0B6E 

0007 



0 R6F 

852E + 

DC 

-.7860654813,13 

0 R70 

0 OOD 



0B71 

6484 + 

DC 

. 161] 3F4R11 , 1 1 

0872 

0008 



0B73 

B2DC + 

DC 

-. 12639 E 7821 ,21 

0B74 

0015 



0 R75 

7RC4 + 

DC 

. 20278F7B21 ,21 

0876 

0015 



0 B77 

5179 + 

DC 

.1668656818,18 

0 B78 

001? 



0R79 

+XP DS 1? 


0BR5 

2063+TW I ST STX TWX 

• S 

• * 

08R6 

O01C + 

LOA FALL 


08P7 

0 408 + 

SAG NW 


0RR8 

0D01 + 

LOI 1 


0RR9 

4043 + 

JMM MOPF 


OBR A 

4051 + 

JMM WIPF 


ORRB 

4052 + 

JMM TURFP 


0R8C 

4020 + 

JMM MSG 


OB8D 

0DRD + 

nc do.o.mi .orjUirnm 


OBRE 

0DR7 



OBRF 

ODCR 




+ NW 

LSTSY 


OB90 

401F + 

JMM CRT 


OR91 

0000 + 

DC 0 


OB92 

0540 + 

CLA 


OB93 

4043 + 

JMM MO OF 


OR94 

4007 + 

JMM FM1JL 


0B95 

0DAB + 

DC TP+QUANT4TP 


0R96 

0DR1 



0B97 

OPAR 



0893 

4011 + 

JMM FSUR 


0899 

0003 + 

DC 01, TP, TP 


0R9A 

OPAR 



0R9B 

OPAR 



0B9C 

400C + 

JMM FDIV 


0B9D 

OPAF + 

DC THETA « TP, THETA 


0R9E 

OPAR 



0B9F 

OPAF 



OBAO 

400C + 

JMM F 0 1 V 


DBA 1 

ODAF + 

DC THETA, OROTF, TP 


0RA2 

OCFC 



OB A3 

OPAR 



0RA4 

4018 + 

JMM FIX. 


DBAS 

ODAB + 

OC TP 


0BA6 

0064 + 

LDA TP 


0RA7 

0140 + 

ABA 


OBAR 

04D1 + 

SAG 1 


0BA9 

5863 + 

JMP *TWX 


ORA A 

0100 + 

TWA 


OBAB 

6064 + 

STA TP 


OBAC 

09CR + 

SRI 800 


ORAD 

6065 + 

STA TP 2 


OBAE 

CO 66 + 
0 540 + 

LOX =-11 


OB AF 

CLA 


ORPO 

6467 + 

STA OM+11,1 


0BR1 

0201 + 

I MX 1 


0RB2 

53R0 + 

JMP #-2 


0BR3 

D06R + 

LDA =$4000 SFT OUTER WALL TO 1/SEC 


OBR 4 

6067 + 

STA OM+11 


0BB5 

D069+GLP 

LPA =-3 COUNT 3 DT*S 


0BR6 

606A + 

STA CT 


0RR7 

406B+LP 

JMM ROTF UPDATE AIRMOTION 


OBRR 

406C + 

JMM GETOM CALC ANG VFL AIR AT FIRST DROPLET 


0BR9 

0D44 + 

PC 01 


OBRA 

4060 + 

JMM TURNTP UPDATF DROPLET POSITION 


OBRB 

0D44 + 

OC 01 


ORRC 

406C + 

JMM GETOM SAME SECOND DROPLET 


OBRD 

0D58 + 

OC 02 


OBRE 

406D + 

JMM TURNIP 


OBRF 

0058 + 

DC Q2 


ORCO 

406C + 

JMM GETOM 


0BC1 

0D6C + 

DC EQ1 


0BC2 

4060 + 

JMM TURNIP 


0BC3 

0D6C + 

DC EQ1 


0BC4 

406C + 

JMM GETOM 


0PC5 

0082 + 

DC E02 


0BC6 

406D + 

JMM TURNIP 


0BC7 

0082 + 

DC EQ2 



0BC8 E064 + 
0BC9 048? + 
OBC A 0540+ 
OBCR 6067+ 
ORCC E06R+ 
OBCD 04R1 + 
ORCE 5863+ 
ORCF E 0 6 A + 
ORDO 53R7+ 
OPD 1 D029 + 
ORD? FOPA+ 
0BD3 0482+ 
0BD4 0481+ 
0BD5 53D2+ 
0BD6 D02A+ 
0RD7 6029+ 
OR08 406E+ 
0RD9 401F+ 
OBDA 0001+ 
OBDB 53R5+ 


INC 

TP 

SKP 

2 

CLA 


ST A 

OM+ll 

INC 

TP? 

SKP 

1 

JMP 

*TWX 

INC 

CT 

JMP 

IP 

LDA 

TNXT 

CAA 

itimf 

SKP 

? 

SKP 

1 

JMP 

— 3 

LDA 

ITIMF 

STA 

TNXT 

JMM 

DSPLA 

JMM 

CRT 

DC ] 


JMP 

GL p 


ORDC 206F+SHIFT STX SHX 

ORDD D01C + LDA FALL 

OBOE 04DA + SAG NOWTPF 

OROF 0001+ LDI 1 

OPFO 4043+ JMM MOOF 

0 RF1 4051 + JMM WIPF 

0RF2 405?+ JMM TUBFR 

ORF3 0039+ LDA VSH 

0PP4 04A4+ S A Z 4 

0 PF5 40 ?0 + JMM MSG 

0BF6 0DRD+ DC DO . 0 . Ml , 03 » SHFTM 

0PF7 0DR7 

0 BFB ODCR 

0 BF9 401F + NGWIPE JMM CRT 
OBFA 0000+ DC 0 

0 BFB 0540+ CLA 

0 RFC 4043+ JMM MODF 

OBFD 0540+ CLA 

0 PFE 6070+ STA VA 

ORFF 6071+ STA VA+1 

0 BPO D039+ LDA VSH 

OBF1 6072+ STA UA 

ORF2 D03A+ LDA VSH+j 

0 RF3 6073+ STA UA+1 

0BF4 D064+ LOA TP 

0RF5 04D?+ SAG 2 

0BF6 4048+ JMM FNEG 

0BF7 0FD8+ DC UA 

0 RF8 400C+ JMM FDIV 

0 BF9 0DAB+ DC TP,DT,TP 

OBFA OCFF 
0 BFB ODAB 

0 RFC D072+ LDA UA 

OBFD 04A4+ SAZ 4 TNPTFRP TP AS DIST IF VEL NOT ZERO 

OBFE 400C+ JMM FDIV 

OBFF 0DAB+ DC TP,!JA,TP 

OCOO 0FD8 

OCOl ODAR 

0C02 4018+ JMM FIX 

0 C03 0DAB+ DC TP 

0 C04 D3AB+ LDA TP 

0C05 0140+ ARA 

0C06 0401+ SAG 1 

0C07 5RC3+ JMP *SHX 

0 CO 8 0100+ TWA 

0C09 63AB+ STA TP 

OCOA 9240+ SUB PAWS 

OCOB 63AD+ STA TP? 

OCOC D059+D3L LDA =-4 COUNT 4 DT*S 
OCOD 6337+ STA CT 

OCOE 406D+SLIDE JMM TURNIP 
0 COF 0D44+ DC Q1 

0C10 406D+ JMM TURNIP 

OC11 0D58+ DC Q? INTFGRATE EACH DROP ONE STEP 

0C1? D03C+ LDA MV1 

0 C 1 3 04D2+ SAG 2 

0C14 406D+ JMM TURNIP 

0 C 1 5 0D6C+ DC EQ1 

0 C 1 6 D03D+ LDA MV2 

OC 1 7 0402+ SAG 2 

0 C 1 8 406D+ JMM TURNIP 

OC 1 9 0D82+ DC EQ2 

OC1A E040+ INC XTIMF 

OC1R 0500+ NOP 

OC1C 4074+ JMM XHA I R 

0C1D D02B+ LDA IFPASS 

0C1E 04A7+ SAZ NOPT 

OC 1 F 4011+ JMM FSUR 




0C?0 0D48 + DC X1»X?,pTEM 

0C?1 0D5C 
OC ?2 0C41 

0C?3 D?4 1 + LDA PTFM 

0C?4 04D1 + SAG 1 

0C25 5BC3 + JMP *SHX 

+ NOPT LSTSY 
0C?6 F3A8 + INC TP 

0C27 0484+ SKP 4 


0C?fl D3E2 + 
0 C?9 6072 + 


IDA VFLD 
STA UA 


0 CPA D3F3 + 
0C2R 6073+ 
OC PC E3AD+ 
0C2D 0481+ 
0C2E 5BC3+ 
0C2F E337+ 
OC30 520E+ 
0C31 D3D3+ 
0C32 F3D4+ 
0C33 0482+ 


LD A VELD+1 
STA UA+1 
INC TP? 

SKP 1 
JMP #SHX 

INC CT AMD DISPLAY EVERY 4 TIMFS 

JMP SLinp 

LDA TNXT 

CAA ITIMF 

SKP 2 


0C34 0481+ SKP 1 


0C35 5?3?+ JMP *-3 

0C36 D3D4+ LDA ITIMF 

0C37 6303+ STA TNXT 

0C38 425S+ JMM DSPL A 

0C39 D072+ LDA UA 

0C3 A 04A1+ SAZ 1 

0C3B 0A81+ SKP 1 


0C3C 405E+ JMM GIN 


0 C 3 D 401F+ JMM CRT 

0C3E 0001+ DC 1 

0C3F 520C+ JMP DSL 

0C4O OOOO+PAWS DC 0 
0C41 OOOO+PTEM DC 0,0 
0C42 0000 




'V»- 


0C43 

0C44 

DC45 

0C46 

OC47 

OC48 

OC49 

OC4A 

OC4B 

OC4C 

OC4D 

OC4E 

OC4F 

ocso 

0C51 
DCS 2 
OC53 
0C54 

OC55 

0C56 

OC57 

OC58 

OC59 

OC5A 

OC5R 

OC5C 

OC5D 

0C5E 

OC5F 

0C60 

0 C61 

OC62 

OC63 

OC84 

OC65 

OCR6 

OC67 

OCRS 

OCF9 

OCR A 

OC6B 

OCRC 

OCfSD 

OCRE 

OCRF 

0C7O 

OC71 

OC72 

OC73 

OC74 

OC75 

0C76 

OC77 

OC78 

OC79 

OC7 A 

OC7B 

OC7C 

OC7D 

OC7E 

OC7F 

0C80 

OCR 1 

OC82 

OC83 

0C84 


OD9B+WIPE LDI S9R CLEAR SCREEN 
224A + STX WPX 

4058+ JMM PAK 

0D8C+ LDI SRC 

4058+ JMM PAK 

424B+ JMM WAITP 

5 A 4 A + JMP *WPX 

+ * 

OOOO+WPX DC 0 
D069+WA ITP LDA = -3 
6254+ STA WINC 

0540+ CLA 

0901+ SRI 1 

04A1+ SA7 1 

524E+ JMP *-? 

F254+ INC WINC 

524D+ JMP WAITP+2 

07C0+ JM x 0 

OOOO+WINC DC 0 
+ # 


2299+dSPLA STX DSX 
401F+ JMM CRT 

0000+ DC 0 

4045+ JMM FADD 

0D4A+ DC Y 1 ♦ D * 1 • WS 

0 8C4 
0D01 

4011+ JMM FSIJR 

0D48+ DC Xl»D.l* WS? 

0 8C4 
0FD6 

401F+ JMM CRT 

0D48+ DC XI , Y] ,4 

0D4A 
0004 

40 1 F+ JMM CRT 

0FD6+ DC WS2»WS»2 

ODOl 
0002 

4011+ JMM FSUR 

OD70+ DC EX1 » D • 1 > WS 

0 PC4 
ODOl 

4011+ JMM FSUR 

0D72+ DC EY1»D.1»WS? 

0 8C4 
0 FD6 

401F+ JMM CRT 

0D70+ DC EX 1 » FY1 » 4 

0D72 
0004 

401F+ JMM CRT 

0 DO 1 + DC WS»WS?,2 

0 FD6 
0002 

4045+ JMM FADD 

0D5E+ DC Y2 » D . ] ,WS 

08C4 
ODOl 

4011+ JMM FSUR 

0D5C+ DC X2*D.1,WS? 

08C4 
0FD6 

401F+ JMM CRT 

0D5C.+ DC X2 » Y? « 4 

0D5E 
0004 

401F+ JMM CRT 


(MODE 


1 ASSUMED) 


OCRS 

OFQ6 + 

DC 

WS2*WS* 

2 

OCB6 

ODOl 




OCB7 

OOO? 




0CB8 

4011 + 

JMM 

FSIJR 


OCB9 

0DB6 + 

DC 

EX?,n. l 

* WS 

OCBA 

0 BC4 




OCBR 

ODOl 




0 CBC 

4011 + 

JMM 

FStJP 


OCBD 

ODBB + 

DC 

ey?,d. i 

»WS2 

OCBE 

0BC4 




PCBF 

0FD6 




OC9Q 

401F+ 

JMM 

CRT 


nc9i 

0DB6 + 

DC 

fx?,fy? 

*4 

OCR? 

0088 




OC93 

0 0 04 




OC94 

401F + 

JMM 

CRT 


OC95 

0001 + 

DC 

ws»ws?» 

2 

0C96 

0 F D 6 




0 C97 

000? 




0C98 

SA99 + 

JMP 

#DSX 


OC99 

+ DSX 

DS 

1 



0C9A 

0C9R 

0C9C 

0C9D 

0C9F 

0C9F 

OCAO 

OCA1 

0CA2 

0CA3 

0 C A 4 

0CA5 

0CA6 

0CA7 

OCAR 

0CA9 

OCAA 

OCAR 

OCAC 

OCAO 

OCAE 

OCAF 

OCRO 

OCR1 

OCR2 

OCR3 

OCB4 

0 CR5 

OCR6 

0 CB7 

OCR8 

OCR9 

OCRA 

0 CRB 

0 CRC 

0 CRD 

OCRE 

OCRF 

OCCO 

OCC1 

0CC2 

0CC3 

0 CC4 

0 CC5 

0CC6 

OCC7 

0CC8 

0CC9 

OCCA 

0 COB 

occc 

0 CCD 
OCCE 
OCCF 

ocno 

O CDl 
OCD2 
0 CD3 
OCD4 
OCD5 
0 CD6 
0CD7 
0 CD8 
0CD9 
OCHA 
OCDB 
OCDC 
OCDD 


2343+ROTE 
0D01 + 

6336 + 

C075 + 
D076+SLP 
632R + 

0540 + 

04FO + 

0000 + 

ODER 
0D38 
632R + 

8068 + 

632D + 

D068 + 

932B + 

632F + 

D2DD + 

04F0 + 

0000 + 

0 D2R 
0D31 
D331 + 

0C01 + 

0100 + 

82DE + 

D2DF + 

6331 + 

D7 ] 1 + 

04E0 + 

0000 + 

0D2D 
0D2D 
632D + 

D710 + 

04F0 + 

0000 + 

0D31 
0 03 1 
6331 + 

D70F + 

04E0 + 

0000 + 

0D2F 
0D2F 
632F + 

832D + 

04FO + 

0000 + 

OCDD 
0D2D 
632D + 

D331 + 

0C01 + 

832D + 

671C + 

E33B + 

0201 + 

529E + 

D312 + 

6311 + 

C066 + 

D71C + 

6710 + 

0201 + 

52D8 + 

5R43 + 
OOOO+BR 


STX RX UPDATE ATR ANGULAR VFL 
LDI 1 
STA I M 1 

LDX =-10 (10 INTFRIOR POINTS) 

LDA = . 5R 1 

STA E 

CLA 

DIV 

DC 0 » E • T M 1 


STA F. F = .5/ ( 1-1 ) =DR/2R 

ADD = 1 B 1 

STA G G=l+E 

LDA = 1 R 1 

SIJR F. 

STA H H=l-E 

LDA BR R AT B-l OR 4B AT R1 
MPY 

DC 0 ♦ E» P P = 4RF (AT R2) 


LDA P 

LLM 1 NOW AT R 1 
TWA 

ADD CP 
LDA CR 

STA P P=C“4RF AT B1 

LDA 0M+ 1 ? § 1 

MPY 

DC 0»G«G G=G0M(I+1) 


STA G AT B? 

LDA DM + 11*1 
MPY 

DC 0»P»P 


STA P R=POM(T) AT B2 

LDA OM+lO.l 

MPY 

DC 0 * H » H 


$TA H H=HOM ( I- 1 ) AT B2 

ADD G 

MPY 

DC 0»BR,G 


G= (B AT B-l ) (G + H AT R?) 
AT B2 


STA G 
LDA P 
LLN 1 
ADD G 

STA OMP+11,1 
INC I M 1 
I NX 1 
JMP SLP 

LDA OMP+ 1 SET OMP { 1 ) =OMP ( 2) 
STA OMP 
LDX =-] 1 
LDA OMP+ 1 1 » 1 
STA 0M+U,1 
I NX 1 
JMP *-3 
JMP *RX 
DC 0 


AT R 1 


fi 

f 


0 CDE OOOO+CP OC 0 
+ •» 

0 CDF OOOO + CALCOMP DC 0 
OCFO OOOl+ONE DC 1 
OCFl 0004 +FOUR • DC 4 

0 CF 2 6 AC 2 +C 0 EF DC $ 6 AC?,-lO 9 FTA /2 
0 CF 3 FFF 6 

OCF 4 6666 +OMEGA DC 1 . 6 R 1,1 
ncF 5 0001 

OCF 6 R 9 CR+SHIFTY DC -$ 4638,-8 -. 3/350 THREE INCREMENTS 

OFF 7 FFFA 

OCF 8 0 0 0 0 + ANG DC 0,0 
0 CF 9 0000 

OCFA 648 B+PI DC $ 6488 ,? 

OCFB 0002 

OCFC OOOO+DROTE DC 0,0 
OCFD 0000 

OCEE OOOO+GMOD DC 0 
OCFF OOOO+XOFF DC 0,0 
OCFO 0000 

OCFl 0000 +YOFF DC 0,0 
0 CF 2 0000 

0 CF 3 6 C 22 +R 0 DC . 0033 R- 8,-8 
OCF 4 FFF 8 

0 CF 5 0000 + C 3 DC 0,0 
0 CF 6 0000 

0 CF 7 0000 +C 4 DC 0,0 
OCFB 0000 

OCF 9 4 DD 3 +NU DC $ 4 DD 3,-2 
OCFA FFFE 

OCFB *5017 + 111 DC $ 5017,-3 1 / 1 ] 

OCFC FFFD 

OCFD 0000 +DR DC 0,0 
OCFE 0000 

OCFF 0000 +DT DC 0,0 
ODOO 0000 

0 D 01 0000 +WS DC 0,0 
0 D 02 0000 

0 D 03 4000 +D 1 DC $ 4000,1 
0 D 04 0001 

0 DOS + OM DS 12 

0 D 11 + OMP DS 12 

0 D 1 D + F DS 6 

0 D ?3 0000 +A DC 0,0 

0 D 24 0000 

0 D 25 0000 +R DC 0,0 

0 D 26 0000 

0 D ?7 0000 +C DC 0,0 

0 D 28 0000 

0 D 29 0000 + D DC 0,0 

OD 2 A 0000 

0 D 28 0000 +E DC 0,0 

0 D 2 C 0000 

0 D 2 D 0000 +G DC 0,0 

0 D2E 0000 

0 D 2 F 0000 +H DC 0,0 

0 D 30 0000 

0 D 31 0000 +P DC 0,0 

0032 0000 

0033 0000+0 DC 0,0 

0 D 34 00 00 

0 D 35 4000 +P 5 DC $ 4000,0 
0 D 36 0000 

0 D 37 OOOO + CT DC 0 

0 D 38 0000 +IM 1 DC 0,0 

0 D 39 0000 

0 D 3 A OOOO + LX DC 0 

0 D 38 OOOO+TEMP DC 0 


ODBC OOOO+PTR 
0D3D OOOO+fKS 
0D3F 0000 
0D3F 00 00+ WYE 
0040 0000 
0D41 6666+Pl 
004? FFFO 
0043 0000+PX 
+ 01 

0D44 0000+U1 

0045 0000 

0046 0000+V1 

0047 0000 
0D48 0000+X1 

0049 0000 
0D4A OOOO+Yl 
0D4R 0000 
0D4C OOOO+Cll 
0040 0000 
0D4E 0000 + IJXl 
0D4F 0000 

0050 0000+VX1 

0051 0000 

0052 0000+XX1 

0053 0000 
0D54 0000+YX1 

0055 0000 

0056 6F69+P1 
0D57 FFF9 

+ Q2 

0058 0000+U2 

0059 0000 
005A 0000+V2 
005B 0000 
0O5C 000Q+X2 
0D5D 0000 

0 05E 0000 + Y2 
005F 0000 

0060 0000+C21 

0061 0000 
0D6? 0000+UX2 
0 D63 0000 
0D64 0000+VX2 

0065 0000 

0066 0000+XX2 
0D67 0000 
0D68 0000+YX2 
0069 0000 
0D6A 6C22+R2 

0 D6B FFF9 

+ FQ1 

0D6C OOOO+FUl 
0060 0000 
0D6E 0000+EV1 
0 D6F 0000 
0 D70 0000 + EX1 
0D71 0000 

0072 0000+EY1 

0073 0000 
0D74 0000+EC11 
0075 0000 
0D76 0000+EUX1 

0077 0000 

0078 0000+EVX1 

0079 0000 
0D7A 0000+EXX1 
007B 0000 
0D7C 0000+EYX1 


DC 0 
DC 0,0 

DC 0,0 

DC 56666,-3 .1 

DC 0 
LSTSY 
DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC ,0068R-7,-7 

LSTSY 
DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC • 0 066R-7 , -7 

LSTSY 
DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 

DC 0,0 


007D 0000 

0D7E 0000+ER1 DC 0*0 
0D7F 0000 

ODRO OOOO+LOCOl DC 0*0 
ODR1 0000 

+ EQ2 LSTSY 
ODR2 0000+EU2 DC 0*0 
0DR3 0000 

0DR4 0000+EV2 DC 0,0 
0DR5 0000 

0DB6 0000+EX2 DC 0*0 
0DR7 0000 

0DR8 0000+FY2 DC 0*0 
0DR9 0000 

ODRA 0000+EC21 DC 0*0 
ODRB 0000 

ODBC 0000+EUX2 DC 0*0 
ODBD 0000 

ODBE 0000+EVX2 DC 0*0 
ODRF 0000 

0D90 00 00 + EXX2 DC 0,0 
0D91 0000 

0D92 0000+EYX2 DC 0*0 
0D93 0000 

0D94 0000+ER2 DC 0,0 
0D95 0000 

0D96 0000+LOC02 DC 0*0 
0D97 0000 

0D98 +ESTF1 DS 1 

0D99 0 0 0 0 +ESTF2 DC 0 

0D9A D2C1 + REST TXT* 16 RADIUS TRUE /EST 

0D9B C4C9 

ODBC D5D3 

0D9D A0D4 

0D9E D2D5 

0D9F C5AF 

ODAO C5D3 

0DA1 D4A0 

0DA2 0000+ DC 0 

0DA3 8CCD+M.9 DC -.9B0*0 
0DA4 0000 

0DA5 8334+M. 975 DC -»975R0,0 
0DA6 0000 

0DA7 5A1C+RTURB DC 5 . 5F-3B-7 * -7 
0DA8 FFF9 

0DA9 5800+D1 1 DC $5800*4 
ODA A 0004 

ODAB OOOO+TP DC 0,0 
ODAC 0000 

ODAD 0000+TR2 DC 0*0 
ODAE 0000 

ODAF OOOO+THETA DC 0*0 
ODRO 0000 

ODB 1 7AED+0UANT DC $7AFD*-4 
ODR? FFFC 

0DR3 A261+M1.46 DC -$5D9F*1 
0DB4 0001 

0DR5 5D9F+D1.46 DC $5D9F*1 
0DR6 0001 

0DB7 BE2C+M1.03 DC -$41D4»1 
ODRB 0001 

0DB9 41D4+D1.03 DC $4lD4*l 
ODBA 0001 

ODBB '«>: 26 1 + M • 0 0 6 DC $-5D9F*-7 
ODBC FFF9 

ODBD OOOO+DO.O DC 0,0 
ODRE 0000 

ODRF 5D9F+D.006 DC S5D9F,-7 



ODCO FFF9 

ODC1 OOOO+WHICH DC 0 
ODC2 OOOO+TWX DC 0 
ODC3 0 OOO+SHX DC 0 
ODC4 0 OOO+PKX DC 0 
ODC5 OOOO+PX DC 0,0 
ODC6 OOOO 

0DC7 OOOO+PRX DC 0 

0DC8 D4D5 + TIJRNM TXT»4 TURN 

0DC9 D2CE 

ODCA 0000+ DC 0 

ODCB D3C8 + SHFTM TXT, 8 SHIFT 
ODCC C9CR 
ODCD D4A0 

ODCE 0000+ DC 0 

ODCF OOOO+TUBX DC 0 
ODDO ABOO+PLUS DC SAB00,0 
ODDI 0000 

0DD2 001R+TS DC 27 
0DD3 OOOO+TNXT DC 0 
0DD4 0000+IT.IMF DC 0 
0DD5 OOOO+VSH DC 0,0 
0DD6 0000 

0DD7 9C00+M400. DC -400R9,9 
0DD8 0009 

0DO9 OOOO+TINC DC 0,0 
ODDA 0000 

ODDB 5000+D10. DC 10B4,4 
ODDC 0004 

ODDD 0000+CL2 DC 0 
ODDF OOOO+KA DC 0,0 
ODDF 0000 

ODFO OOOO+KB DC 0,0 
0DF1 0000 

0DF2 OOOO+VELD DC 0,0 
0DF3 0000 

0DF4 OOOO+SCALE DC 0,0 
ODFB 0000 

0DE6 0000 + F ALL DC 0 
0DF7 0000+OMS2 DC 0,0 
0DF8 0000 

0DF9 72B0+R02 DC .0035R-8,-8 
ODEA FFF8 

ODFB COOO+M2. DC -2.R?,? 

ODFC 0002 

ODFD A000+M3. DC -3.R2,? 

ODFE 0002 

ODFF OOOO+LOCX DC 0 

ODFO 5780+D350. DC 350R9,9 

0DF1 0009 

0 DF2 7000 + D14. DC 14R4,4 
0DF3 0004 

0 DF4 4000 + SMALL DC .5R0,-20 
0 DF5 FFEC 


0DF6 4000+D.5 DC .5R0,0 
0DF7 0000 

0DF8 4333+D1.05 DC I • 0*>R 1*1 
0DF9 0001 

ODFA 5000+D5* DC 5.B3,3 
ODFB 0003 

ODFC 6866+D.4 DC .4B-1,-1 
ODFD FFFF 

ODFE 999A+M • 4 DC -.4B-1,-1 
ODFF FFFF 

OEOO 0OOO+M.5 DC T8000,-l 
OEO 1 FFFF 

0E02 B100 + Z1 DC. $B100,0 
0E03 0000 


OFO 4 R200+72 DC $R200,0 
0F05 OOOO 

OE06 +XTIME DS 1 


£ *. 


Of: 07 2077+PICKX STX PKX 
0F08 4078 + JMM NORMAL 

0F09 0DC5 + DC PX 

OEO A 4000+ JMM FDIV 

OEOB 0DC5 + DC PX,P9.,PX 

OEOC 0F1 4 
OFOD 0PC5 

OFOE C077+ IPX PKX 

OFOF 0079+ LPA PX 

0E1 0 0340+ STX 0 

0E11 D07A+ LPA PX+1 

0FI2 0341+ SIX 1 

OF 1 3 07C1+ JM X 1 

0F1 4 4R00+D9. DC 9.R4,4 
0E1 5 0004 

+ •«• 

0E1 6 207R+PICKR STX PRX 
0F1 7 4078+ JMM NORMAL 

0E1 8 0DC5+ DC PX 

0 E 1 9 400C+ JMM FD I V 

0 E 1 A 0DC5 + DC PX,P3?.,PX 

OF 1 B 0F2B 
0E1C 0DC5 

0E1D 40^5+ JMM FAOD 

0E1E 0D03* DC D1»PX,PX 

0E1F ODC R 
OEPO 0DC5 

0EP1 4007+ JMM FMUL 

OF?? 0DC5+ DC PX , RO , PX 

OF? 3 0 CF3 
0E?4 0PC5 

0 EPS C07B+ LPX PRX 

0EP6 0079+ LDA PX 

0FP7 0340+ STX 0 

0EP8 D07A+ LPA PX+1 

OEPP 0341+ SIX 1 

OEPA 07C1+ JMX 1 

OEPB 4000+032. DC 32R6.6 
OEPC 0006 

+ ■»■ 

0E2D P2D0+XHAIR STX XHX 

OEPE PPD1+ LPA XRFP NEW XHATR INPUT? 

0 EPF 0 4 A 1 + SAZ 1 

0E30 07C0+ JMX 0 MO 

0E31 DPD4+ LDA FITTING DROP LOCKED TO XHAIR? 

0E3P 04D1+ SAG 1 

0E33 523D+ JMP IFMK 

0F34 407C+ JMM FIXGIN 

0E35 4045+ JMM FADD CALC DFSIREO POSITION 

0E36 17F0+ DC XLOC,XSCRFP 

0 E37 0ED8 

0E38 0000+XH3 DC 000 
0E39 4045+ JMM FADD 

0E3A 17F2+ DC YLOC,YSCRFP 

0E3B OEDA 

0E3C 0000+XH4 DC 000 

0E3D D02D+IFMK LDA MARK ISOPOSITION MARKED? 

0E3E 04D3+ SAG XMK 

0E3F 0D01+XXIT LDI 1 NO, SET TO ACCEPT NEW POSITION 

0E40 62D1+ STA XREP 

0E41 5 ADO + JMP *XHX 

0E42 62D6+XMK STA NUTTME SAVE T I MF 

0 E43 62ED+ STA NUT I MF2 

0E44 0540+ CLA 

0E45 602D+ STA MARK AND CLEAR 

0E46 D2D4+ LDA FITTING DROP BEING MOVED 

0E47 04A1+ SAZ 1 

0E48 5270+ JMP XHCALC YES, MOVING DOME 




0E49 0 DO 1 + LDI 1 

OF4A 62D4 + STA FITTING START UP OF DROP RFLOCATTOM 

0F4B 407C + JMM FIXGTN 

0F4C D07D + LDA XLOC SIGN OF X DTERMINFS WHICH DROP IS MEANT 

0E4D 62D5 + STA X10R? 

0E4E 04R2 + SAN 2 

0F4F D07E + LDA = EX? 

OEFO 0401+ SKP 1 

OFF 1 D07F + LDA =EX1 

0FS2 62FA + STA XH1 POINT TO PROPEP X 

0FF3 6238+ STA XH3 

0F54 6271+ STA XH5 

OFFS 0802+ ADI ? 

0EF6 625E+ STA XH2 

0EF7 623C+ STA XH4 TO PROPFP Y 

0EF8 6272+ STA XH6 

OFFR 4011+ JMM FSUR C At C OFFSET OF XHAIR FROM DROP 

OFFA 0000+XH1 DC 00 0 , XLOC * XSCRFP 
OEFR 1 7F0 
OEFC 0ED8 

OEFD 4011+ JMM FSUR 

OEFE 0000 +XH2 DC 000 ♦ Yl.OC » YSCRFP 
OEFF 1 7F2 
0E60 OEDA 

0E6 1 D2D5+ LDA X10R2 FFTCH LAST MARKED TIMF AND RADIUS 

0E62 04R6+ SAN LI 

0E63 E2F8+ INC MV2 NOTF DROP 2 BEING HANDLED 

0F64 401D+ JMM MOVF 

0F65 OEEA+ DC R20LD,R0LD 

0E66 0 EDC 

0E67 D2EC+ LDA T20LD 

0E6R 0485+ SKP L2 

0E69 E2E3+L1 INC MV1 

0E6A 401D+ JMM MOVF 

0E6R 0FE5+ DC R1 OLD » ROLD 

0F6C OEDC 

0F6D D2E7+ LDA T1 OLD 

0E6E 62DE+L? STA OLDTIME 
0E6F 523F+ JMP XXIT 

0E70 404R+XHCALC JMM RADIUS CALC RADIAL POS 
0E71 0000+XH5 DC 000 
0E72 0000+XH6 DC 000*RMU 
0E73 OFDF 

0E74 D2D5+ LDA X10P2 IS THIS THE FIRST TIMF FOR THIS DROP 

0E75 04B1+ SAN 1 

0F76 527C+ JMP L3 

0E77 D2E4+ LDA DID1 

0E78 04A1+ SAZ 1 

0E79 5281+ JMP XDOIT 

0E7A E2E4+ INC DID] 1ST FOR #1 

0E7R 52C4+ JMP FIX] 

0E7C D2E9+L3 LDA DID? 

0E7D 04A1+ SAZ 1 

0E7E 5281+ JMP XDOIT 

0E7F E2F9+ INC DID2 1ST FOR #2 

OEPO F2B9+ JMP FIX? 

0F81 400C+XDOIT JMM FDIV CAL C TIME CONST DELTA 
0E82 OEDF+ DC RIMUjROLD*A 

0E83 OEDC 
0E84 0D23 

0E85 4080+ JMM LOG? 

0E86 0D23+ DC A * A 

0ER7 0D23 

0ER8 4007+ JMM FMUL 

0E89 0D23+ DC A *LOGF?» A 

OERA 0EE1 
OEBB 0D23 

OERC D2D6+ LDA NUT I MF 


ss 


A 

<? 


HERD 92DE + SUR OLOTIMF. 

OFRE 62D6 + STA NUT I MF 

OFRF 4081 + JMM FLOAT 

0F90 0FD6 + DC NUT IMF 

0E9], 4007+ JMM FMU|. 

0F92 0FD6 + DC NUTI MR , DT . NUT I ME 

0F93 OCFF 
0E94 0ED6 

0E95 400C+ JMM FDIV 

0E96 0D23 + DC A « NUT I ME , X HDELT 

0E97 0FD6 
0F98 OEEE 

0E99 4007+ JMM FMUL CALC DROP RADIUS 

0E9A 0FFE+ DC XHDEl T< XHDFLT. A 

0E9R OEEF 
0F9C 0D23 

0F9D 400C+ JMM FDIV 

0E9E 0D23 + DC A.OMS2.A 

OE9F ODE7 
OEAO 0D23 

OFA1 4007+ JMM FMUl 

OEA2 0DP3+ DC A.D5..A 

0EA3 ODFA 
0EA4 0 D23 

0EA5 4045 + JMM FADD 

0FA6 0D23 + DC A.Dl.A 

0EA7 0D03 
0EA8 0 D?3 

0FA9 4007+ JMM FMUL 

OEAA 0D23+ DC A * XHDFLT . A 

OFAB OEEE 
OEAC 0D23 

OFAD 4007+ JMM FMUL 

OEAE 0D23+ DC A.XHCOF’A 

OEAF 0 FD2 
OEBO 0D23 

0EB1 4050+ JMM SORT 

0ER2 0D23+ DC A * A 

0ER3 0D23 

0 ER4 D2D5+ LD A XlOP? 

OER5 04BR+ SAN SET1 

0ER6 401D+ JMM MOVF 

0FR7 0D23+ DC A * ER? 

0ER8 0D94 

0 FB9 433D + FIX2 JMM XCOFF 
OEBA 0D82+ DC F.02 

OEBB 401D+ JMM MOVF 

0 EBC 0EDF+ DC RNU»R?OLD 

OEPD OFEA 

OERE D2ED+ LD A NUT I MF2 

OFRF 62EC+ STA T20LD 

OECO 52CB+ JMP XSHtlT 

OECI 40 1D+SET1 JMM MOVF 

0FC2 0D23+ DC A » ER 1 

0 EC3 0D7E 

0EC4 433D+FIX1 JMM XCOFF 
0EC5 0D6C+ DC FQ 1 

0EC6 401D+ JMM MOVF 

0EC7 0FDF+ DC RNU,R10LD 

0 EC8 0EE5 

0 EC9 D2ED+ LD A NUTIMF2 

OECA 62E7+ STA T 1 OLD 

OECB 0540+XSHUT CLA 
0 ECC 62D4+ STA FITTING 

OECD 6 2 E 3 + STA MV1 

OECE 62E8+ STA MV2 

OECF 523F+ JMP XXIT 



OEDO . + XHX DS 1 

OFDl + XRED OS 1 

OED2 +XHCOF OS 2 

0ED4 +FITTING DS 1 

OED5 +X10R2 DS 1 

0ED6 ♦NUTIME DS 2 

OFD8 +XSCREP DS 2 

OEDA +YSCREP DS 2 

0 EDC +ROLD DS 2 

OEDE +DLDTIMF DS 1 

OFDF + RNU DS 2 

OEF1 S8R9+L0GE2 DC . 69317280, 0 

0EF2 0000 

0EF3 0000 + MV1 DC. 0 
0EF4 0000+DID1 DC 0 
0EF5 0 0 0 0 + R1 OLD DC 0*0 
0EF6 0000 

0EF7 0 OOO+TlOLD DC 0 
0EF8 0 0 0 0 + MV2 DC 0 
0EF9 0000+DID2 DC 0 
OEFA 0 0 0 0 + R20LD DC 0*0 
OEFB 0000 

OEFC 0 0 0 0 + T20LD DC 0 
OEFD 0000+ NUTIME? DC 0 
OEFE OOOO+XHDELT DC 0,0 
OEFF 0000 


OFFO 

♦ ■ir 

2327+EXP? 

STX 

XPX Y=2.» 

OEF I 

0300 + 

LIX 

0 

0EF2 

6328 + 

STA 

TEX 

0EF3 

0301 + 

LIX 

1 

0EF4 

6329 + 

STA 

TEX+] 

0EF5 

0 70 0 + 

LAX 

0 

0EF6 

62FF + 

STA 

AEX 

OEFT 

4018 + 

JMM 

FIX 

0EF8 

0F28 + 

DC 

TEX 

0EF9 

D328 + 

LD A 

TEX 

OEFA 

0 801 + 

ADI 

1 

OEFB 

632R + 

STA 

AEXP+1 

OEFC 

4081 + 

JMM 

FLOAT 

OEFD 

0F28 + 

DC 

TEX 

OEFE 

4011 + 

JMM 

FSUR 

OEFF 

OOOO+AEX 

DC 

000 * TEX *TFX 

OF 0 0 
OFO 1 
0FO2 

0F28 
0F28 
4012 + 

JMM 

FRACT 

0FO3 

0F28 + 

DC 

TEX 

0F04 

D328 + 

LDA 

TEX 

0FO5 

04E0 + 

MPY 


OF06 

0000 + 

DC 

0 * CX4 * TEX+ 1 

OFO 7 
OFoe 
OFO 9 

OF30 
0F29 
0CC3 + 

ARS 

3 

OFO A 

832F + 

ADD 

CX3 

OFOB 

04EO + 

MPY 


OFOC 

0000 + 

DC 

0 * TEX « TEX+ 1 

OFOD 

OFOE 

OFOF 

0 F28 
0F29 
0CC2 + 

ARS 

2 

OF). 0 

832E + 

ADO 

CX2A 

OFl 1 

04E0 + 

MPY 


OF 1 2 

0000 + 

DC ' 

0*TEX,TEX+1 

OF 1 3 
OFl 4 
OFl 5 

0F28 
0F29 
0CC1 + 

ARS 

1 

OF 1 6 

832D + 

ADD 

CXI A 

OFl 7 

04EO + 

MPY 


OF 1 8 

0000 + 

DC i 

0*TEX*TEX+1 


0 F 1 9 

OF?8 


OFT A 

0F29 


OF1B 

OCC] + 

ARS 1 

OF 1 C 

8320 

ADD CXO 

OF 1 D 

632A + 

STA AEXP 

OF 1 E 

4082 + 

JMM NORM 

OF1F 

0F2A + 

DC AEXP 

0F20 

C327 + 

LDX XPX 

OF21 

0201 + 

I N X 1 

OF22 

032 A + 

LDA AEXP 

OF23 

0340 + 

SIX 0 

0F24 

0328 + 

LDA AEXP + 1 

OF25 

0341 + 

SIX 1 

OF?6 

07C1 + 

JMX 1 

0F?7 

OOOO+XPX 

DC 0 

OF28 

OOOO+TEX 

DC 0>0 

OF29 

0000 


0F2A 

OOOO+AEXP 

DC 0*0 

0F28 

0000 


OF2C 

4000+CX0 

DC .500002443280 

OF2D 

58AR+CX1 A 

DC .3463618917R-] 

OF2E 

3D79+CX2 A 

DC .12006934918-2 

OF2F 

3A90+CX3 

DC .2859587553E-1R- 

0F3 0 

50R4+CX4 

4 - ft 

DC .492F754022F-2B- 

0F3 1 

OOOO+EXX 

DC 0 

0F32 

OOOO+ESX 

DC 0 

0F33 

OOOO+EA 

DC 0*0 

OF34 

0000 


OF35 

OOOO+EB 

DC 0.0 

OF36 

0000 


OF37 

OOOO+EC 

DC 0.0 

OF38 

0000 


OF39 

4000+0*25 

DC .25B-1.-1 

OF3 A 

FFFF 


OF3B 

6000+D.75 

DC .7580.0 

OF3C 

0000 


OF3D 

238D + XCOEF STX XCX 

0 F3E 

0700 + 

LAX 0 

0F3F 

0814 + 

ADI 20 

OF40 

6083 + 

STA PTRA 

0F41 

C0R4 + 

LDX =-20 

OF42 

0C83 + 

LDA '“PTRA * 1 

OF43 

644D + 

STA PT+20.1 

OF44 

0201 + 

I NX 1 

OF45 

5342 + 

JMP *- 3 

OF46 

400C + 

JMM FD TV 

0 F47 

0CE2 + 

DC COEF * RT » CK 

OF48 

1080 


OF49 

0F94 


OF4A 

4000 + 

JMM FD I V 

OF4B 

0F94 + 

DC CK.RT.CK 

OF4C 

1080 


0 F4D 

0F94 


OF4E 

4007 + 

JMM FMUL 

0F4F 

OF 94 + 

DC CK.DT.CT1 

OFFO 

OCFF 


OFF 1 

1076 


0FF2 

400C + 

JMM FD I V 

OFF3 

0DE7 + 

DC 0MS2 » CK > CDELT 

OFF4 

0F94 


OFF5 

0F8E 


0 F56 

4007 + 

JMM FMUl 

0FF7 

0F8E + 

DC CDELT. OMEGA.CFPS 

OFF8 

0CE4 


0FF9 

0F90 


OFFA 

400C + 

JMM FDIV 


0F5B 

0F90 + 

ofbc 

OF94 

OF5D 

0F90 

OFSE 

4007 + 

OF5F 

0F90 + 

0F60 

ODFB 

OF61 

0F90 

OFR2 

4007 + 

OF63 

1072 + 

OF84 

0F8E 

OF65 

1 06E 

OF66 

4007 + 

OF67 

1074 + 

0 F68 

0F8E 

OF 69 

1070 

OF6 A 

4007 + 

OF 6B 

1074 + 

OFFC 

OF90 

0F6D 

0F92 

OF6E 

4011 + 

OF6F 

106E + 

0F7 0 

0F92 

OF7 1 

1 06E 

OF72 

4007 + 

OF73 

1072 + 

OF74 

0F90 

OF75 

0F9? 

OF76 

4045 + 

OF77 

1070 + 

OF78 

0F92 

0F79 

1070 

OF7A 

4085 + 

OF 79 

1 06E + 

OF7C 

1078 

OF7D 

4085 + 

OF7E 

1070 + 

OF7F 

1 07A 

0F80 

4085 + 

OF81 

1072 + 

OF82 

1 07C 

0 F 83 

4085 + 

OFR4 

1074 + 

OFR5 

1 07E 

OF86 

C084 + 

OF87 

D44D + 

QFR8 

6C83 + 

OFR9 

0201 + 

OF8A 

5387 + 

0 F8B 

C38D + 

OFRC 

07C1 + 


+ * 

OFBD 

+ XCX 

0 F8E 

+CDELT 

0F90 

+ CEPS 

OF92 

+ XCT 

OF94 

+ CK 


DC CEPS,CK+CEPS 


JMM FMUL 

DC CEPS, MP . 9 CEPS 


JMM FMUL 

DC xt»cdelt»ut 


JMM FMIJL 

DC yt»cdflt,vt 


JMM FMIJI 
DC YT> CFPS * XCT 


JMM FSUR 
DC UT*XCT*UT 


JMM FMUL 
DC XT , CSPS » XCT 


JMM FADD 
DC VT»XCT»VT 


JMM DFIX 
DC UT * UXT 

JMM DFIX 
DC V T » V X T 

JMM DFIX 
DC XT » XXT 

JMM DFIX 
DC YT » YXT 

LDX = -20 
LDA PT + PO * 1 
STA *PTR-A*1 
I NX 1 
JMP *-3 
LDX XCX 
JMX 1 

DS 1 
DS ? 

DS 2 
DS 2 
DS 2 


0F96 23D0+GET0M STX GX CALC AIP ANG VEL AT GIVFN POINT 

0F97 CRDO+ LDX #GX GET ADDRFSS OF ARG LIST 

0F98 0208 + I NX 8 POINT AFTFR X AND Y 

0F99 23D1+ STX GPTR 

0F9A C059 + LDX = -4 

0F9B DFD 1 + LDA #GPTR,1 

0F9C 67D6 + STA GP+4,1 

0F9D 0201* I MX 1 

0F9E S39B + JMP *-3 

0F9F 4048+ JMM RADIUS 

OF AO 0FD2 + DC XG,YG,WS 

0 FA 1 0FD4 

0FA2 0D01 

0FA3 4007+ JMM FMUL CALC INDEX INTO OM ARRAY 

0FA4 0D01+ DC WS,D1] ,WS 

OF A5 0DA9 
OF A6 ODOl 

0FA7 DO 0 R + LDA WS SAVE VALIJF 

OF A8 63D6+ STA WS2 FOR INTERPOLATION 

0FA9 D00A+ LDA WS+ ] 

OFAA 63D7+ STA WS2+1 

OFAB 4018+ JMM FIX 

OFAC 0D01+ DC WS 

OFAD 4012+ JMM FRACT 

OFAE 0FD6 + DC WS2 

OFAF D3D6 + LDA WS? CLEAR ONF"S BIT OF NUMBER SCALFD BO 

OFBO B086+ ANA -J7FFF 

0FR1 63D6 + STA WS? 

0FR2 C008+ LDX WS INDEX INTO ANG VEL ARRAY AND DO TNTERPL 

0FR3 D487+ LDA OM+] , 1 

0FB4 9488+ SUB OM,] 

0FB5 04E0+ MPY 

0FR6 0000+ DC 0,WS?.WS TIMES FRACTION BETWEEN VALUES 

0FR7 0FD6 
0FR8 ODOl 

0FB9 8488+ ADD OM,l 

0 FR A 6008+ STA WS 

OFBB D04A+ LDA THETA WHICH DIRECTION ARE WE GOINGa 

OFBC 04D3+ SAG 3 

OFRD D008+ LDA WS CHANGE SIGN FOR NEG ANGLF 

OFRE 0100+ TWA 

OFRF 6008+ STA WS 

OFCO 0D01+ LDI 1 INDICATE BINARY POINT 

0FC1 600A+ STA WS+1 

0 FC2 4082+ JMM NORM AND FLOAT 

0 FC3 0D01+ DC WS 

OFC4 4007+ JMM FMUL CALC AIR VELOCITY 

0FC5 0DO1+ DC WS*XG,VA 

OFC6 0FD2 
0FC7 OFD A 

0FC8 4007+ JMM FMUL 

0FC9 0D01+ DC WS,YG,UA 

0 FCA OFD4 
OFCB 0FD8 

OFCC 4048+ JMM FNFG 

0 FCD 0FD8+ DC UA 

0 FCE C3D0+ LDX GX 

OFCF 07C1+ JMX 1 

OFDO 0000+GX DC 0 

OFDl 0000+GPTR DC 0 

+GP LSTSY 

0FD2 0000+XG DC 0,0 
0FD3 0000 

0FD4 0000+YG DC 0,0 
OFD5 0000 

0FD6 0000+WS2 DC 0,0 
0FD7 0000 



*ya* ■ 


OFOfl OOOO+UA 
OFH9 0000 
OFDA OOOO+VA 
OFDB 0000 


DC 0,0 
DC 0,0 


OFDC 2089+TURNIP STX TX INTF6PATF DROPLET ONE STEP 

OFDD 0700+ LAX 0 

OFDE 0814+ ADI 20 

OFDF 60R3+ STA PTR A 

OFFO C084+ LDX = -20 

OFFl DC83+ LDA #PTRA*1 

0 FF2 644D+ STA PT+20,1 

0 FF3 0201+ I NX 1 MDVF AROS TO WORK AREA 

0FF4 53E1+ JMP *-3 

0 FF5 4007+ JMM FMUL 

0FF6 1076+ DC CT1,UT,E1 E1=KDT*U 

0FF7 1 06E 

0FF8 1064 

0FF9 4007+ JMM FMUL 

OFFA 0CF5+ DC C3»VT,D2 D2=20MDTV 

OFFB 1070 

OFFC 1066 

OFFD 4007+ JMM FMUl 

OFFE 0CF7+ DC C4,XT,D3 D3=DM**2DTX 

OFFF 1072 
OFFO 1068 

OFFl 4007+ JMM FMUL 

0FF2 1076+ DC CT1,UA.WS WS=KDTUA 

0 FF3 0FD8 

0FF4 0D01 

0FF5 408A+ JMM DADD 

0FF6 1078+ DC UXT,WS,UP 

0FF7 0D01 
0FF8 106A 

OFF 9 4048+ JMM FMEG 

OFFA 1064+ DC FI 

OFFB 4 0 8 A + JMM DADD 

OFFC 106A+ DC UP, El, UP 

OFFD 1064 
OFFE 1 06 A 

OFFF 408A+ JMM DADD 

1000 106A+ DC UP, 02, UP 

1001 1066 

1002 1 06A 

1003 408A+ JMM DADD 

1004 106A+ DC UP » D3 , UP 

1005 1068 

1006 106A 

1007 4007+ JMM FMUL 

1008 0CF5+ DC C3»UT,Fl Fl=OMDTU 

1009 1 06E 
1 0 0 A 1064 

1 0 OB 4007+ JMM FMUL 

100C 1076+ DC CT1,VT,D2 D2=KDTV 

100D 1070 
1 0 OF 1066 

100F 4007+ JMM FMUL 

1010 0CF7 + DC C4,YT,D3 D3 = 0M#*2DTY 

1011 1074 

1012 1068 

1013 4007+ JMM FMUL 

1014 1076+ DC CT 1 » VA » WS 

1015 OFDA 

1016 0D01 

1017 408A+ JMM DADD 

1018 1 0 7 A + DC VXT,WS,VP 

1019 0D01 
1 0 1 A 106C 

101B 4048+ JMM FNER 

101C 1064+ DC El 

10 ID 4048+ JMM FNEG 

1 0 1 E 1066+ DC D2 

1 0 IF 408A+ JMM DADD 


VP 


1020 1060 

1021 1064 

1022 1 06C 

1023 40RA + 

1024 1 060 

1025 1066 

1026 1 06C 

1027 4080 

1028 10 60 

1029 1068 
1 02A 106C 

1 02B 408B + 
102C 10 78 + 

1 02D 1 06A 
1 02E 0D01 
102F 408C+ 

1030 0 DO 1 + 

1031 0D01 

1032 4007+ 

1033 0D01+ 

1034 OCFF 

1035 0D01 

1036 408A+ 

1037 107C+ 

1038 0D01 

1039 1 07C 

1 03 A 408C+ 

1 03B 107C+ 

1 03C 1072 
1 03D 408B+ 
103E 1 0 7 A + 
103F 1 06C 

1040 0D01 

1041 408C+ 

1042 OD01+ 

1043 0D01 

1044 4007+ 

1045 0D01+ 

1046 OCFF 

1047 0D01 

1048 408A+ 

1049 107E+ 
104A 0D01 

1 04B 1 07E 
1 04C 408C+ 

1 04D 107E+ 
104E 1074 
1 04F 401D+ 

1050 106A+ 

1051 1078 

1052 408C+ 

1053 1078+ 

1054 1 06E 

1055 4010+ 

1056 106C+ 

1057 1 07A 

1058 408C+ 

1059 1 0 7 A + 

1 05A 1070 

1 05B C084+ 

1 05C D682+ 

1 050 6E63+ 

1 05E 0201+ 

1 05F 525C+ 

1060 C262+ 

1061 07C1+ 

1062 OOOO+TX 


DC VP, FI. 


JMM DADD 
DC VP,D2,VP 


JMM DADD 
DC VP » D3 , VP 


JMM DAVFR 
DC UXT , UP ♦ WS 


JMM DFLOAT 
DC WS,WS 

JMM FMUL 
DC WS , DT , WS 


JMM DADD 
DC XXT , WS « XXT 


JMM DFLOAT 
DC XXT, XT 

JMM DAVFR 
DC VXT ,VP,WS 


JMM DFLOAT 
DC WS,WS 

JMM FMUL 
DC WS , DT * WS 


JMM DADD 
DC YXT ♦ WR , YXT 


JMM DFLOAT 
DC YXT , YT 

JMM MOVF 
DC UP, UXT 

JMM DFLOAT 
DC UXT , UT 

JMM MOVE 
DC VP, VXT 

JMM DFLOAT 
DC VXT , VT 

LDX =“20 REPLACE UPDATED ARGS 

LDA PT+20,1 

STA *PTRA,1 

I NX 1 

JMP *«3 

LDX TX 

JMX 1 

DC 0 


1063 

0000+PTRA 

DC 

0 

1064 

0000+El 

DC 

0,0 

1065 

0000 



1066 

0000+02 

DC 

O 

•> 

O 

1067 

0000 


1069 

0000+03 

DC 

o.o 

1069 

0000 



1 06 A 

0000+UP 

DC 

0,0 

1 06R 

0000 



106C 

0000+VP 

DC 

0,0 

1 06D 

0000 




+ PT 

LSTSY 

106E 

0000+UT 

DC 

0,0 

1 06F 

0000 


1070 

0000+VT 

DC 

o 

V# 

o 

1071 

0000 



1072 

0000+XT 

DC 

0,0 

1073 

0000 


1074 

0000+ YT 

DC 

0,0 

1075 

0000 



1076 

0000+CT1 

DC 

0,0 

1077 

0000 



1078 

0000+UXT 

DC 

0,0 

1079 

0000 


107 A 

0000+VXT 

DC 

o 

«■> 

o 

1 07B 

0000 


1 0 7 C 

0000+XXT 

DC 

0,0 

1070 

0000 


107E 

0000+YXT 

DC 

0,0 

1 07F 

0000 

1080 

0000+RT 

DC 

0,0 

1081 

0000 



1082 

0300+HALF 

LIX 

0 

1 0R3 

04A2 + 

SAZ 

2 

10 84 

0301 + 

LIX 

1 

1085 

0901 + 

SRI 

1 

1086 

0341 + 

SIX 

1 

1087 

07C1 + 

JMX 

1 

1088 

0300+TWICE LIX 0 

1089 

04A2 + 

SAZ 

? 

1 08A 

0301 + 

LIX 

1 

108B 

0801 + 

ADI 

1 

1 08C 

0341 + 

SIX 

1 

1 ORD 

07C1 + 

JMX 

1 


+ * 



1 0 RE 

22F0+ATAN 

STX 

ATX 

10RF 

0300 + 

LIX 

0 

1090 

62F3 + 

STA 

Y 

1091 

0504 + 

SFX 

S 

1092 

04B1 + 

SAN 

1 

1093 

05C4 + 

RFX 

S 

1094 

0301 + 

LIX 

1 

1095 

62F4 + 

STA 

Y+l 

1096 

0433 + 

SNS 

3 

1097 

4048 + 

JMM 

FNFG 

1098 

10F3 + 

DC Y 

1099 

C2F0 + 

LDX 

ATX 

109A 

0201 + 

I MX 

1 

109B 

0301 + 

LIX 

1 

1 09C 

62F2 + 

STA 

X+l 

1 09D 

0300 + 

LIX 

0 

109E 

62F1 + 

STA 

X 

1 09F 

04B3 + 

SAN 

3 

1 0 AO 

05C8 + 

RFX 

R 

10A1 

0540 + 

CLA 


10A2 

0484 + 

SKP 

4 

1 0 A3 

4048 + 

JMM 

FMEG 

10A4 

10F1 + 

DC > 

10A5 

0508 + 

SFX 

'r 

1 0A6 

D068 + 

LD A 

=$4000 

10A7 

8076 + 

ADD 

=$2000 

10A8 

62F5 + 

STA 

QUAD 

10A9 

02F4 + 

LDA 

Y+l 

1 0 A A 

F2F2 + 

CAA 

X+l 

1 0 A B 

0 481 + 

SKP 

1 

1 0 AC 

D2F2 + 

LDA 

X+l 

1 0 AO 

0180 + 

ONA 


10AE 

62F6 + 

STA 

EXP 

1 OAF 

82F4 + 

ADD 

Y+l 

10B0 

62F4 + 

STA 

Y + l 

1 OBI 

D2F2 + 

LDA 

X+l 

1 0B2 

82F6 + 

ADD 

FXP 

10R3 

62F2 + 

STA 

X + l 

10B4 

4012 + 

JMM 

FRACT 

10R5 

1 OF 1 + 

DC X 

10R6 

4012 + 

JMM 

FRACT 

1 0R7 

10F3 + 

DC Y 

1 ORB 

D2F1 + 

LDA 

X 

1 0R9 

82F3 + 

ADD 

Y 

1 ORA 

0801 + 

ADI 

1 

10BB 

62F7 + 

STA 

T 

1 OBC 

D2F3 + 

LDA 

Y 

1 ORD 

92F1 + 

SUB 

X 

10BE 

04r 0 + 

DIV 


10RF 

0000 + 

DC 0 

» T » T 

10C0 

1 0F7 


10C1 

1 0F7 



1 0C2 

62F1 + 

STA 

X 

1 0C3 

04E0 + 

MPY 



1 OCA 

0000 + 

DC C 

>*X*T 

1 0C5 

1 0F1 



] OC6 

1 0F7 



1 OC7 

62F3 + 

STA 

Y 

10C8 

OAEO + 

MPY 


1 OC9 

0000 + 

DC 0 

l*K7»T 

1 OCA 

1 OFB 



1 OCR 

10F7 



10CC 

0CC2 + 

APS 

2 

1 OCD 

82FA + 

ADD 

K5 

1 OCE 

OAEO + 

MPY 


1 OCE 

0000 + 

DC 0 

> Y, T 

iono 

1 0F3 


10 m 

1 0F7 



1 0D2 

0CC1 + 

ARS 

1 

1 OD3 

82F9 + 

ADD 

K3 

1 0 DA 

0AE0 + 

MPY 


1005 

0000 + 

DC 0 

» Y » T 

1006 

1 0F3 



1007 

1 0F7 



1008 

0CC2 + 

ARS 

2 

10 09 

82F8 + 

ADD 

K 1 

1 OOA 

0AE0 + 

MPY 


10OB 

0000 + 

DC 0 

» X * T 

lone 

1 OF 1 



1000 

1 0F7 



1 0 0 E 

0CC1 + 

ARS 

1 

1 OOF 

0A21 + 

SNR 

1 

1 OFO 

0100 + 

TWA 


10F1 

82F5 + 

ADD 

QUAD 

10F2 

0A31 + 

SMS 

1 

10F3 

0100 + 

TWA 


l-OFA 

62F3 + 

STA 

Y 

1 0F5 

05AO + 

CLA 


1 0F6 

62FA + 

STA 

Y+l 

10F7 

A082 + 

JMM 

NORM 

1 0F8 

10F3 + 

DC Y 


1 0F9 

C2F0 + 

LDX 

ATX 

1 OFA 

0202 + 

I NX 

2 

1 OFB 

D2F3 + 

LDA 

Y 

1 OFC 

03A0 + 

SIX 

0 

1 OFD 

D2FA + 

LDA 

Y+l 

1 OFE 

03A1 + 

SIX 

1 

10FF 

07C1 + 

JMX 

1 

1 OFO 

0000+ ATX 

DC 0 


1 OF 1 

0000+X 

DC 0 

*0 

10F2 

0000 



10F3 

0000+Y 

DC 0 

*0 

1 OFA 

0000 



1 0F5 

OOOO+GUAD 

DC 0 


10F6 

OOOO+EXP 

DC 0 


1 0F7 

0000+T 

DC 0 


1 0F8 

516B+K1 

DC $516R 

1 0F9 

978B+K3 

DC - 

$6875 

1 OFA 

5E73+K5 

DC S5E73 

1 OFB 

9C56+K7 DC 

S63AA 


(- 1 ) 

(-3) 

(- 4 ) 

(- 6 ) 


10FC 

2321 + 

NORMAL STX NX 

10FD 

D08D + 

LDA 

= -l? 

1 OFF 

6322 + 

STA 

NCT 

1 OFF 

0540 + 

CLA 


1100 

631F + 

STA 

NSUM 

1101 

4315 + 

JMM 

RANDM 

110? 

0C83 + 

LRN 

3 

1103 

831F + 

ADD 

NSUM 

1104 

631F + 

STA 

NSUM 

1105 

E322 + 

INC 

NCT 

1106 

5301 + 

JMP 

*-5 

1107 

D31F + 

LDA 

NSUM 

1108 

OCR 1 + 

LRN 

1 

1109 

90RF + 

SUB 

=$3000 6.B4 

1 1 0 A 

631F + 

STA 

NSUM 

1100 

0 DO 4 + 

LDI 

4 

hoc 

6320 + 

STA 

NSUM+l 

hod 

40R2 + 

JMM 

NORM 

HOE 

1 1 1F + 

DC NSUM 

110F 

C321 + 

LDX 

NX 

1110 

D31F + 

LDA 

NSUM 

1111 

0340 + 

SIX 

0 

1112 

D320 + 

LDA 

NSUM+l 

1113 

0341 + 

SIX 

1 

1114 

07C1 + 

JMX 

1 


+ ■» 


1115 2323+PANDM STX RNX 


1116 

D31E + 

LDA 

VAL 

1117 

0801 + 

ADI 

1 

ilia 

04E0 + 

MPY 


1119 

0000 + 

DC 0 

* VAL 

1 1 1 A 

1 1 IF 


1 11 R 

111E 



me 

D31E + 

LDA 

VAL 

HID 

07C0 + 

JMX 

0 


+ «• 



111E 

00 0 1 + VAL 

DC 1 


11 1 F 

0 0 0 0 +NSUM 

DC 0 

*0 

1120 

0 0 0 0 



1121 

0 0 0 0 + NX 

DC 0 


1122 

OOOO+NCT 

DC 0 


1123 

OOOO+RNX 

DC 0 



VAL 


1 1 ?6 6345+ 
1127 0301+ 
11?8 6346+ 
1 1 ?9 0201 + 
1 1 2 A 0300+ 
112B 6347+ 
112C 0301+ 
1 1 2D 6348+ 
1 1 ?E 4007+ 
11?F 1145+ 

1130 1145 

1131 1145 

1132 4007+ 

1133 1147+ 

1134 1147 

1135 1147 

1136 4045+ 

1137 1145+ 

1138 1147 

1139 1145 
113A 4349+ 
1138 1145+ 
11 3C 1147 


LIX 0 
STA XR 
LIX 1 
STA XR+1 
I NX 1 
LIX 0 
STA YR 
LIX 1 
STA YR+1 
JMM FMUL 
DC XR,XR«XR 


JMM FMUL 
DC YR » YR • YR 


JMM FAOD 
DC XR » YR » XR 


JMM SORT’ 
DC XR » YR 


+ * 

1124 2344+RAD IUS STX RAX 

1125 0300+ 


SORT (X»X*Y+Y) 


1130 

113E 

113F 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 
1 1 4 A 
1148 
114C 
1140 
114E 
114F 

1150 
1191 
1182 

1183 

1184 

1185 

1186 

1187 

1188 
1189 
1 1 8 A 

I 18B 
118C 
1 180 
118E 
118F 
1160 
1 161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1 1 6 A 
1168 
116C 
1160 
116F 

I I 6 F 

1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 
1 179 

1 1 7 A 
117B 
117C 
117D 


C344 + 
0 20 2 + 

0347 + 

0340 + 

0348 + 

0341 + 
07C1 + 

0000 + 
0000 + 
0000 
0000 + 
0000 

+ 

237A + 
0301 + 
0CC1 + 
6382 + 
0300 + 
0 404 + 
0540 + 

6381 + 

6382 + 
5373 + 
0 CR 1 + 

6383 + 
0404 + 
E382 + 
0800 + 
0504 + 
0482 + 
05C4 + 
0300 + 
0C8C + 
0600 + 
0779 + 
6381 + 

6384 + 
D08F + 

6385 + 
D383 + 
04F0 + 
0000 + 
1184 
1181 
0431 + 
0C81 + 

6386 + 
0381 + 
0C81 + 
8386 + 
0401 + 
D086 + 
6381 + 
F385 + 
5363 + 
C37A + 
0201 + 
D3R1 + 

0340 + 
D 3 8 2 + 

0341 + 
07C1 + 

+ 

0000 + 
478E + 
54AA 
6000 


a 

RAX 

XR 

YP 

SORT 


LOX 
I NX 
LOA 
SIX 
I OA 
SIX 
JMX 

OC 

DC 0 


RAX 

2 

YR 

0 

YP+1 

1 

1 

0 

,0 


OC 0»0 


SOLE 


STX 
LIX 
ARS 
STA 
LIX 
SAG 
CLA 
STA 
STA 
JMP 
LRN 
STA 
SNC 
INC 
NOP 
SFX 
SKP 
RFX 
LIX 
LRN 
X X A 
LOA 
STA 
STA 
LOA 
STA 
LOA 
DTV 
OC 0 


sox 

1 GFT EXP 

1 /? LOW RIT TO C 

SQEXP 

0 GET MANT 
4 

IF <=0 RETURN 7FR0 
SOT 
SQFXP 
SQXTT 

1 SCALE 9Y 1 
RAND 

4 

SQEXP ADJUST VALUE FOR ODD EXP 


S 

? 

S 

0 

12 


IJSF UNSC4LFD VALUE IF EXP EVEN 
GFT UPPER 3 BITS 


GFT APPROX ANSWER FROM TABLE 


TRIAL-2* 1 
SQT 
RANO+1 

=-2 SET UP TO DO TWO ITERATIONS 
SQCT 

RAND A/X 
* RAND+ 1 * -SQT 


SNS 

LRN 

STA 

LOA 

LRN 

ADD 

SAG 

LDA 

STA 

INC 

JMP 

SQXIT LDX 
INX 
LDA 
SIX 
LDA 
SIX 
JMX 

SQX DC 0 

TRIAL DC 


1 

1 

SQTP 

SQT 

1 

SQTP ( X + A/X ) /?. 
1 REDUCE IF >1 
= $ 7 F F F 
SQT 
SQCT 
SQLP 
SQX 

1 

SQT 

0 

SQEXP 

1 

1 


S478F » S54AA t $600 0 *$6A22» $7361 *$7REF 


117E 6A2P 
11 7F 7361 
1 1 BO 7RFF 

1 1 B 1 OOOO+SQT DC 0 

1182 OOOO+SQEXP DC 0 

1183 OOOO + RAND DC 0>0 

1184 0000 

1185 OOOO+SQCT DC 0 

1186 OOOO+SQTP DC 0 



] 1R7 

23FB+DEC0UT STX OCX 



11 RB 

0300 + 

LIX 

0 



11B9 

63F9 + 

STA 

DA GFT VALUE 



1 1 B A 

0301 + 

LIX 

1 



11BB 

63FA + 

STA 

DA+1 



UPC 

D3F9 + 

LDA 

DA 



11PD 

05C? + 

REX 

R REMOVE STGN 



1 IRE 

04D3 + 

SAG 

3 



11BF 

404B + 

JMM 

FNEG 



1190 

11F9 + 

DC 1 

DA 



1191 

0502 + 

SEX 

R 



1192 

0540 + 

CLA 

CALC DFCIMAI. EXPONENT 



1193 

63ER + 

STA 

DFXP 



) 194 

C090+RFSCALF 1 

LDX =0 SEARCH FOR NFAREST POWER 

OF TFN 


1 195 

0D0R + 

LDI 

8 



1 196 

63FC + 

STA 

DELX 



1197 

D3FA+SFEK 

LDA 

DA+1 COMPARE WITH POWER OF TEN 



1198 

F491 + 

CAA 

TENTAR+1 . 1 



1199 

53A2 + 

JMP 

XIJP TRY RIGGFR POWER 



1 1 9 A 

53AR + 

JMp 

XDOWN TRY LOWFR 



1 19B 

D3F9 + 

LDA 

DA 



119C 

F49? + 

CAA 

TENTAR » 1 



1190 

53A2 + 

JMP 

XIJP 



119E 

53AR + 

JMP 

XDOWN 



1 1 9F 

0201+OSH 

I NX 

1 OVERSHOOT TO NEXT POWER 



1 1 AO 

53R2 + 

JMP 

DSC 



1 1 A 1 

53R2 + 

JMP 

DSC 



1 1 A? 

0600+XUP 

X X A 




1 1A3 

B3FC + 

ADD 

DFLX X GOES IIP 



11A4 

0600 + 

XX A 




11A5 

D3FC + 

LDA 

DELX 



11A6 

04C1 + 

SL7 

1 



11A7 

53R2 + 

JMP 

DSC 



1 1 A 8 

0CB1 +SDFLX 

, LRN 1 



11A9 

63FC + 

STA 

DELX 



1 1 A A 

5397 + 

JMP 

SEEK 



11 AB 

0600+XDOWN 

1 XXA X GOES DOWN 



1 1 AC 

93FC + 

SUB 

DELX 



had 

0600 + 

XXA 




11AE 

D3FC + 

LDA 

DELX 



11AF 

04C1 + 

SLX 

1 



1 1 BO 

53R2 + 

JMP 

DSC 



1 1 R 1 

53A8 + 

JMP 

SDELX 



11R2 

D491+DSC 

LDA 

TENTAR+1. 1 SCAL BY POWER 



11R3 

63FD + 

STA 

DSCALE 



11R4 

D493 + 

LDA 

TENTAR + 2. 1. 



11R5 

63FF + 

STA 

DSCALE+1 



11R6 

0600 + 

XXA 

SAVE AMOUNT OF SCALE 



] 1R7 

0 BO 1 + 

ADI 

1 



1 1R8 

0CC1 + 

ARS 

1 



11R9 

63FC + 

STA 

DELX 



11RA 

R3FR + 

ADD 

DEXP 



11RB 

63FB + 

STA 

DEXP 



11RC 

400C + 

JMM 

ED IV 



1 1 PD 

11F9 + 

DC DAtDSCALE.DA 



11RF 

11FD 





11RF 

11F9 





11C0 

D3FC + 

LDA 

DELX WAS NUMBER WITHIN RANGE OF 

TARLEa 


1 1 Cl 

090B + 

SRI 

8 



lie? 

04R1 + 

SAM 

1 



11C3 

5394 + 

JMP 

RESCALE NO. RIGGER 



1 1 C4 

080F + 

ADI 

15 



11C5 

04D1 + 

SAG 

1 



11C6 

5394 + 

JMP 

rescale no. smaller 



11C7 

4012 + 

JMM 

FRACT 



1 1C8 

11F9 + 

DC 

DA CONVERT TO FIXED FRACTION 



11C9 

C094 + 

LDX 

= -5 EXTRACT 5 DIGITS 



1 1 C A 

ODOA+DEXT 

LDI 

10 



1 1CB 
11CC 
11 CD 
11CE 

I IGF 
1100 
lini 
1102 

1103 

1104 

1105 

1106 

1107 

1108 
1109 

I I 0 A 
11 OR 
line 
HOD 
1 1 OF 
1 10F 
1 1F0 
1 1F1 
1 1F2 
1 1F3 
1 1F4 
1 1F5 
1 1F6 
1 IF? 
1 1F8 
1 1F9 
UFA 
11FR 
1 1FC 

I 1F0 
11FE 
11FF 

I I F 0 
1 1 F 1 
11F2 
11F3 
1 IF 4 
11F5 
11F6 
11F7 
11F8 
11F9 
UFA 
11FB 
11FC 
11FD 
11FE 
11FF 
1 20 A 

1 2 OB 
120C 
120D 
1 20E 
120F 
121 0 
1211 
1212 
1213 
121 4 

1215 

1216 
1217 


04EQ + 
0000 + 
11F9 
1 1F9 
08R0 + 
6495 + 
020 1 + 
53CA + 
D096 + 

6097 + 
ODAE + 
6096 + 
0DA0 + 
0441 + 
ODAO + 

6098 + 
0DA0 + 
63FF + 
D3FB + 
0901 + 
63FB + 
04B2 + 
0DAB + 
0481 + 
0DAD + 
6095 + 
D3FB + 
0140 + 
63FB + 
0540 + 
04F0 + 
OOOA + 
11FB 

1 1EA 
08B0 + 

6099 + 
D3FB + 
08B0 + 
609A + 
4020 + 
16BD + 
16BF 

1 IFF 
C3F8 + 
07C1 + 
0000 + 
0000 + 
0000 
0000 + 
0000 + 
0000 + 
0000 


MP Y 

DC 0,DA,nA 


ADI 
STA 
I NX 
JMP 
LDA 
STA 
LDI 
STA 
LDI 
SMB 
LDI 
STA 
LDI 
STA 
LDA 
SRI 
STA 
SAN 
LDI 
SKP 
LDI 
STA 
LDA 
ARA 
STA 
CLA 
DIV 
DC 


SBO CONVFRT TO ASCI 
D I G7 + 8 , 1 
1 

DEXT 

DIG7+3 MOVE niGIT TO INSERT . 
DIG7+? 

SAE 

DIG7+3 

SAO CHOOSF RINK OR - FOR SIGN 

SAD 

DIG7+] 

SAO 

DIG7 

DEXP GET EXPONENT 
. 1 RFMOVF OVFRSHOOT 
DEXP 
2 

SAB 

1 

SAD 

DIG7+8 SAVE EXPONENT SIGN 
DEXP 


10*DFXP**-2 


ADI $B0 CONVERT TO ASCI 

STA DIG7+9 

LDA DEXP 

ADI SB 0 

STA DIG7+10 

JMM MSG PUT OIJT RESULT 
DC XP0S,YP0S,DIG7 


LDX DCX 
JMX 1 
DCX DC 0 
DA DC 0,0 

DEXP DC 0 
DELX DC 0 
DSCALE DC 0,0 


0000 + 


+ ■> 


6B5F + 
FFE9 
43 1 B 
FFED 
53E2 
FFFO 
68DB 
FFF3 
4189 + 
FFF7 
51 EB 
FFFA 
6666 


DIG7 DS 11 
DC 0 

START OF TFNTAR 

DC lE-7R-?3,-?3,]F-6R-19,-19,lE-5B-16,-16,lE-4B-1 3,-13 


DC .0018-9,-9, . OlR-6,-6, . IB-3, -3 


1218 FFFD 

1219 40 0 0 + TENTAB DC 1 R 1 , 1 
1 2 1 A 0001 

1 2 1 B 5000 + DC 10R4,4,100R7,7.1000R10»10 

I? 1C 0004 
1210 6400 
1 2 1 E 0007 
1 2 1 F 7D0 0 
1 220 0 0 0 A 

1221 4E20 + DC 1 E4R 14 , 14 * 1E5R 1 7 » 1 7 * 1 E6B20 » 20 , 1 F7R24 « 24 

1222 000E 

1223 61A8 

1224 0011 

1225 7 A 1 2 

1226 0014 

1227 4C4B 

1228 0018 

1229 5F5F+ DC lE8R?7f27 

1 22A 0 0 1 R 



1 ??R 
12?C 
1??D 
122E 
122F 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

123 A 
1 23B 
123C 
1 23D 
1 23E 
123F 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

124 7 

1248 

1249 
124A 
124B 
1 24C 
1 24D 
] 24E 
1 24F 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

125 A 
125B 
1 25C 


1250 
125E 
1 25F 
1260 
1261 


1262 

1263 

1264 


1265 

1266 

1267 

1268 


2250 + 

0700 + 

6235 + 
623R + 

0701 + 

6236 + 
623C + 

0702 + 
623D + 
401F + 
0000 + 
0000 + 
0004 
0016 + 
04A4 + 
409R + 
0000 + 
0000 + 
0 0 0 0 + 
40 1F + 
0002 + 
0D9F + 
4282 + 
0540 + 
625E + 
DA3D + 
04AB + 
0C88 + 
04A2 + 
4282 + 
F25E + 
DA30 + 
R09C + 
04A2 + 
4282 + 
E25F + 
E23D + 
5244 + 
4081 + 
125E + 
4007 + 
125E + 
1260 
125E 
4045 + 
16RD + 
125E 

1 6BD 
C25D + 
07C3 + 
+ 

0000 + 
0000 + 
0000 
5214 + 
FFFC 


MSG STX MS X 
LAX 0 
STA MARG1 
STA MARG3 
LAX 1 
STA MARG2 
STA MARG4 
LAX 2 
STA MPTR 

JMM CRT MOVE REAM TO INDICATED POSITION 
MARG1 DC 0 
MARG2 DC 0,4 

LDA CALCOMP IF CALCOMP IN USE PUT OUT CHARS THERE 
SAZ 4 

JMM SYMBOL 
MARG3 DC 0 
MARG4 DC 0 
MPTR DC 0 

JMM CRT 
DC 2 
LDI S9F 
JMM PAK 
CLA 

STA WCNT 

MOUT LDA *MPTR GET NEXT OUTPUT WORD 
SAZ ZIT ZERO IS END OE MESSAGE 
LRN 8 
SAZ 2 
JMM PAK 
INC WCNT 
LDA *-MPT-R 
ANA =$FF 
SAZ 2 
JMM PAK 
INC WCNT 
INC MPTR 
JMP MOUT 
ZIT JMM FLOAT 

DC WCNT UPDATE POSITION BY WIDTH OF MSG 
JMM FMUL 

DC WCNT » WIDTH* WCNT 


JMM FADD 

DC XPOS*WCNT,XPOS 


LDX MSX 
JMX 3 

* 

MSX DC 0 
WCNT DC 0,0 

WIDTH DC .04007828-4,-4 

* 


0B46+ED0 EDO 4,6 
5262+ JMP »-l 

07C0+ JMX 0 

+ * SHUT OFF DISPLAY 

1 =ENTER STORAGE MODE (DATA NOT BUFFERED) 
+o 0=ENTER WRITE THRU MODE (REPETATIVF) 

+*-l -ENTER WRITF THRU MODE (NON-REPET) 
227C+M0DE STX MOX 
627D+ STA QMODO 

D09D+ LDA =SKWASH 

609E+ STA 518 KILL CRT INTERRUPT 


D09F + 
0901 + 
0 4 A 1 + 
526A + 
0 A 4 7 + 
0500 + 
D27D + 
04D1 + 
5277 + 
0D9R + 
4262 + 
ODFO + 
4262 + 
5A7C + 


WAIT 


OD9B+FANTOM LDI $9R 
4262+ JMM EDO 

ODFO+ LDI $F0 

4262+ JMM EDO 

5A7C+ JMP *MOX 

OOOO+MOX OC 0 
OOOO+OMODO DC 0 

0540+SKWASH CLA 
0B46+ EDO 4*6 

127F+ JRL *-l 

127F+ JRL *-2 

+ i'r 

62A1+PAK STA PKA' 


=10000 

1 

1 

4*7 FAT 


QMODO PUT 
1 

FANTOM 

S9B FNTFR 

EDO 

$E0 

EDO 

*MOX 


POISON 


CHARACTER LAVING ARROUND 


SCOPE 


MODE 


STORAGE MODE 


D27D + 

0401 + 

0484 + 

D2A1 + 

0B46 + 

5287 + 

07C0 + 

D2A1 + 

B09C + 

04D2 + 

D2A1 + 

07C0 + 

62A3 + 

22A2 + 

D2A4 + 

0CC1 + 

0 600 + 

0404 + 

0700 + 

A2A3 + 

0740 + 

0485 + 

D2A3 + 

0C08 + 

0740 + 

0540 + 

0741 + 

E2A4 + 

D2A1 + 

5AA2 + 

+ # 

0000+PKA 

0000+PAX 

0000+PKT 

0000+PKP 

+ # 

EO 1 A + KLOK 
12A5 + 

D019 + 

601A + 


PKA' 

QMODO 

1 

4 

PKA 

4*6 

*-l 

0 

PKA 
= $FF 
2 

PKA 

0 

PKT 

PAX 

PKP 

1 


STORAGE MODE OUTPUT DIRECTLY 


1 

PKP 

PKA 

*PAX 


TINC+1 

KLOK 

TINC 

TINC+1 




1 2 A 9 

E02A + 

INC 

ITIMF 




1 2 A A 

1 2 A 5 + 

JRL 

KLOK 




12A8 

12A5 + 

JPL 

KLOK 




1 ?AC 

2310+FSCENQ STX GIX 




1 2 A 0 

0D9B + 

LOI 

$9B 




1?AF 

42R2 + 

JMM 

PAK READ 

IN POSITION 

OF 

BEAM 

1 2 A F 

0D85 + 

LOI 

$85 




12R0 

4282 + 

JMM 

PAK 




1 ?R 1 

5202 + 

JMP 

GCOORO 




12R2 

231D+GIN 

STX 

GIX READ 

IN POSITION 

OF 

CROSSHAIR 

12R3 

D2A4 + 

LOA 

PKP 




] 2R4 

04C2 + 

SLZ 

2 




12R5 

0D96 + 

LOI 

$96 




12R6 

4282 + 

JMM 

PAK 




12R7 

02A4 + 

LOA 

PKP 




1?RS 

90 AO + 

SUB 

PKP] 




1 2R 9 

9 0 A 0 + 

SIJR 

PKP 1 




1 2RA 

60 A 1 + 

STA 

BLEN2 




1 2RB 

0D9B + 

LOI 

$9B 




12RC 

4282 + 

JMM 

PAK 




12RD 

0D9A + 

LOI 

.$9 A 




12RE 

4282 + 

JMM 

PAK 




12RF 

027D + 

LOA 

QMODO 




] ?co 

04D1 + 

SAG 

1 




1 PC 1 

0482 + 

SKP 

2 




1 ?c.?_ 

C094 + 

LOX 

= -5 




1 ?C3 

5204 + 

JMP 

GC00RD+2 




12C4 

0053 + 

LOA 

=-14 




12C5 

6327 + 

STA 

GCNT 




] 2C6 

0096 + 

LOI 

$96 




1207 

4282 + 

JMM 

PAK 




12C8 

E327 + 

INC 

GCNT 




1 2C9 

52C7 + 

JMP 

*-2 




1 PC A 

0D9B + 

LOI 

$9B 




1PCB 

4282 + 

JMM 

PAK 




1PCC 

0D85 + 

LOI 

$85 




1 PCD 

4282 + 

JMM 

PAK 




1 PCE 

0001 + 

LOI 

1 




1 PCF 

631E + 

STA 

GIN I 




ipdo 

5B1D + 

JMP 

'“GIX 




lpni 

231D+RDC0RD STX GIX 




1202 

0501 +GCOORD SEX H 




1203 

C059 + 

LOX = 

: ~4 




12n4 

0A47+IGIM 

EDI 

4,7 




1205 

52D4 + 

JMP 

*-l 




1206 

6727 + 

STA 

GL+5 , 1 




1207 

0201 + 

I NX 

1 




1208 

5204 + 

JMP 

I GIN 




1209 

05C1 + 

RFX 

H 




1 20 A 

C0A2 + 

LOX 

=-115 SFF 

IF CR COMES 

THRU 

120B 

0A47+H2 

EDI 

4,7 




T20C 

0480 + 

SKP 

HI 




1 20D 

098D + 

SRI 

$80 




1 20F 

0 4 A 1 + 

SAZ 

1 




120F 

52EC + 

JMP 

H3 




12F0 

0321 + 

LOA 

GINSW 




12F1 

0 4 A 1 + 

SAZ 

1 




12F2 

52EE + 

JMP 

H4 IGNORE 

MULTIPLE READS 

OF XHAIR 

12C3 

0040 + 

LDA 

XTIME 




12F4 

6020 + 

STA 

MARK MARK 

TIME OF CR 



12F5 

0087 + 

LOI 

$87 




12F6 

0R46 + 

EDO 

4,6 




1 2F7 

52E6 + 

JMP 

*-1 




12F8 

F321 + 

INC 

GINSW 




1 2E9 

52EE + 

JMP 

H4 




1 PF A 

0201+H1 

INX 

1 




12FB 

520B + 

JMP 

H2 





1?FC 

0540 + H3 

CLA 


1 2FD 

6321 + 

STA 

GINSW 

12FE 

D323+H4 

LDA 

GL+1 CONVERT 

1 2FF 

B0A3 + 

ANA 

= S1F 

1 ?F 0 

0C05 + 

LLN 

5 

1 ?F1 

6061 + 

STA 

XPOS 

12F2 

0324 + 

LDA 

GL + 2 

1 2F3 

80A3 + 

ANA 

= $ 1 F 

12F4 

A061 + 

ORA 

XPOS 

1 ?F5 

90A4 + 

SUB 

=51? 

1 2F6 

6061 + 

STA 

XPOS 

1 ?F7 

0325 + 

LDA 

GL + 3 

1 2F8 

BO A3 + 

ANA 

= S1F 

1 2F9 

0C05 + 

LLN 

5 

12FA 

605F + 

STA 

YPOS 

1 2FB 

D326 + 

LDA 

GL + 4 

12FC 

B0A3 + 

ANA 

= S 1 F 

12FD 

A05F + 

ORA 

YPOS 

12FE 

90A5 + 

SIJB 

= 390 

1 2FF 

605F + 

STA 

YPOS 

1300 

0540 + 

CLA 


1301 

6041 + 

STA 

XRF.D 

1302 

0460 + 

TLA 


13 03 

0 4 A 1 + 

SAZ 

1 

1304 

5319 + 

JMP 

GEX 

1305 

4081 + 

JMM 

FLOAT 

1306 

16BD + 

DC 

XPOS 

1307 

4081 + 

JMM 

FLOAT 

1308 

16RF + 

DC 

YPOS 

1309 

400C + 

JMM 

FDTV 

130A 

16R0 + 

DC 

XPOS, SCALE, XPOS 

13 OB 

0DF4 



1 3 0 C 

16B0 



1 30D 

400C + 

JMM 

FDI V 

13 0 E 

16RF + 

DC 

YPOS* S-CALF, YPOS 

1 3 0 F 

0 DE4 



1310 

1 6RF 



1311 

4045 + 

JMM 

FADD 

1312 

16BD + 

DC , 

XPOS, XOFF, XPOS 

1313 

OCFF 



1314 

1 6RD ' 



1315 

4045 + 

JMM 

FADD 

1316 

16BF + 

DC 

YPOS, YOFF, YPOS 

131.7 

0 CF1 



1318 

1 6RF 



131 9 

0540+GEX 

CLA 


131 A 

631E + 

STA 

GINI 

131 B 

D322 + 

LDA 

GL 

1 3 1 C 

5B10 + 

JMP 

*GIX 

1 3 1 D 

OOOO+GIX 

DC 

0 

1 3 1 E 

OOOO+GINI 

DC 

0 

131 F 

5780+D350 

DC 

35 0 B9 , 9 

1320 

0009 



1321 

+GINSK 

I DS 

1 

1322 

+ GL 

DS 

5 

1327 

+ GCNT 

J. -H. 

DS 

1 

1328 

233E+FI XGIN STX FGX 

1329 

4081 + 

JMM 

float 

1 32 A 

17F0 + 

DC 

XLOC 

132B 

4081 + 

JMM 

FLOAT 

132C 

17F2 + 

DC 

YLOC 

1 32D 

4O0C + 

JMM 

FD I V 

132E 

17F0 + 

DC ; 

XLOC, SCALF, XLOC 

1 32F 

0DE4 



1330 

1 7F0 



1331 

400C + 

JMM 

FD I V 

137? 

17F2 + 

DC 

YLOC, SCALE, YLOC 


COORDS 


1333 OOE4 

1334 17F? 

1335 4045+ 

1336 17F0+ 

1337 OCEF 

1338 1 7F0 

1339 4045+ 

133 A 17F2+ 
1338 0CF1 
133C 17F? 

1330 5R3E+ 

1 33E +FGX 


jmm FAnn 

DC XLOC» XOFF, XLOC 


JMM FADD 

DC YLOC « YDFF . YLOC 


JMP *FGX 
DS 1 


133F 

1340 

1341 
134? 

1343 

1344 

1345 

1346 

1347 

1348 

1349 
1 34A 
1 34R 
134C 
1 34D 
1 34E 
1 34F 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 

1358 

1359 

135 A 
1358 
1 35C 
1 35D 
135F 
1 3 5 F 

136 0 
1361 
136? 

1363 

1364 

1365 

1366 
] 367 

1368 

1369 
1 36A 
1368 
136C 
] 360 
1 36E 
136F 

1370 

1371 
137? 

1373 

1374 

1375 

1376 

1377 

1378 

1379 
1 37 A 
137B 
1 37C 
1370 
137E 
1 37F 


?373 

0300 
9 0 A6 
0C0? 

6374 
04FO 
0000 
1 37 A 
1375 
OC.C? 
837B 
04F0 
0000 
1 374 
1375 
0 CC2 
837C 
04E0 
0000 

1374 

1375 
0 CC2 
837D 
O4E0 
0000 

1374 

1375 
0 CC3 
837E 
04F0 
0000 

1374 

1375 
837F 

6375 

0301 
6377 
4 0 R 1 
1377 
0540 

6376 
4045 
1375 
1377 
1377 
C373 
0201 
D377 

0340 
D378 

0341 
07C1 

0000 

0000 

0000 

0000 

0000 

0000 

occo 

59F7 
AF 1 2 
488F 
AF25 
3D8E 
CAEO 


+ L0G2 STX ALX BASF ? I.OSARITMS 
+ LIX 0 CALC MANTISSA 

+ SLJR = . 75R0 

♦ LLN ? 

+ STA LARS 

+ MPY 

+ DC 0 i G5 * LT 


+ ARS 2 

+ ADD G4 

+ MPY 

+ DC 0,LAPG,LT 


+ ARS 2 

+ ADD G3 

+ MPY 

+ DC 0,LARG,LT 


+ ARS ? 

+ ADD G2 

+ MPY 

+ DC 0 , LAPS , LT 


+ ARS 3 

+ ADD G 1 

+ MPY 

♦ DC 0 , LARG , LT 


+ ADD GO 

+ STA LT SAVE MANTISSA 

♦ LIX 1 GET CHARACTERISTIC 

+ STA LZ 

+ JMM FLOAT 

+ DC LZ 

+ CLA ADD TOGETHER 

♦ STA LT + ] 

+ JMM FADD 

+ DC LT * LZ » LZ 


+ LDX ALX 

+ INX 1 

+ LDA LZ 

+ SIX 0 

+ LDA LZ+1 

+ SIX 1 

+ JMX 1 

+ ALX DC 0 
+LARG DC 0 
+LT DC 0,0 

+L7 DC 0,0 

+LARS0 ARS 000 
+G5 DC . 1372774016E-2B-9 

+G4 DC -.5000696106E^?B-7 

+ G3 DC . 1771476639F.-1R-5 

+G2 DC -.7993726338F-1R-3 

+G1 DC • 4809106146B0 

+G0 DC -.4150495026BO 


TURN ON TNT 


138 0 

1381 

1382 

1383 

1384 
13R5 

1386 

1387 

1388 

1389 
1 38 A 
138B 
138C 
1380 
138E 
138F 

1390 

1391 

1392 

1393 

1394 
1305 

1396 

1397 
1 398 
] 399 
139A 
1 39R 
139C 
1 39D 
139E 
139F 
13 AO 
1 3 A 1 
13A2 
13A3 
13A4 
13A5 
1 3 A 6 
13A7 
1 3 A 8 
13A9 
13AA 
13AB 
13 AC 
1 3 AD 
13AE 
3 3 AF 
1 3R0 
13R1 
13R2 
13P3 
13P4 
13R5 
1 3R6 
1 3R7 
1 3 R 8 
1 3R9 
1 3R A 
13RB 
1 3RC 
1 3RD 
13RE 
13RF 
1 3 C 0 


1 3C1 
13C2 


0501+MIZL 

SFX H 

0D04 + 

LDI 4 

0F46 + 

ECO 4,6 TURN 

5382 + 

JMP »-J 

C001 + 

LDX =$74 

D002 + 

LD A =KLOK 

0740 + 

SAX 0 

0540 + 

CLA 

0743 + 

SAX 3 

05C1 + 

RFX H 

401D + 

JMM MQVF 

14D4 + 
0 DF4 

DC D72.2.SCALF 

4010 + 

JMM MOVF 

14D6 + 
0 CEF 

DC D7.09,XOFF 

401D + 

JMM MOVF 

14D8 + 
0CF1 

DC D5.4.Y0FF 

401D + 

JMM MOVF 

OD03 + 
14DE 

DC D 1 » W 

401E+SETUP JMM ZFRO 

0D44 + 

0D46 

0D20 

DC U 1 » V 1 , G 

0000 + 

DC 0 

401D + 

JMM MOVF 

0DF6 + 
0 D48 

DC D . 5 » X 1 

401D + 

JMM MOVF 

0DF6 + 
0D4A 

DC D • 5 » Y 1 

401D + 

JMM MOVF 

0F39 + 
0 D?9 

DC D.25,D 

4050 + 

JMM SORT 

0DF6 + 
0 D6C 

DC D. 5, FIJI 

4007 + 

JMM FMUL 

0D6C + 

14DE 

0D6C 

DC EU1,W,FLJ1 

401D + 

JMM MOVF 

0D6C + 
0D6E 

DC EU1 , FV 1 

0D01 + 

LDI 1 

4265 + 

JMM MODF 

42B2 + 

JMM GIN 

4011 + 

JMM FSIJR 

16RD + 

0D4B 

0070 

DC XP0S,X1 »EX1 

4011 + 

JMM FSIJR 

16RF + 
0D5E 
0 D88 

DC YP0S,Y2»EY? 

D04E + 

LD A =-l 

4265 + 

JMM MODF 

401F + 

JMM CRT 

0000 + 

DC 0 

42B2 + 

JMM GIN 

401F + 

JMM CRT 

0001 + 

DC 1 

5 0 A 7 + 

JMP WGIN 


+ -y- 


4328+RECALC JMM FIXGIN COMPLETE COORD CONV 
401D + JMM MO VF 


1303 1 7F0 + 

1304 0 D5C 
1303 401D + 

1306 1 7F2 + 

1307 005E 
13CR 422B + 

1309 0048 + 

1 30 A 0 D4A 

1 30R 0 DPD 
130C 422R + 

1 30D 0D5C+ 

130F 0D5F 
1 30F 0 DBO 

1300 42B2 + 

1301 02 A4 + 

13n? 90 AO + 

1303 9 0 A 0 + 

1304 0804+ 

1305 60A8+ 

1306 401F+ 

1307 0001+ 

1308 4081+ 

1309 0D33+ 

1 30A 400C + 

130R 0033+ 

130C 1 4DC 

1 3 0 D 0 033 
130E ,4011 + 

1 30F 0D5C + 

13F0 0048 
13F1 0023 
13F? 4011+ 

13E3 005F+ 

13F4 0 04 A 
13F5 0025 
1 3F6 4011+ 

1 3F7 0023+ 

13FR 0070 
1 3F9 0001 
13FA 400C+ 

1 3FB 0001 + 

13FC 0033 
13FD 002D 
13FE 4011+ 

13FF 0025+ 

13F0 0072 
13F1 0D01 
1 3F2 400C+ 

1.3F3 0001 + 

13F4 0033 
13F5 0D2F 
13F6 0069+ 

13F7 60A9+ 

+ MEWT 

13FR 4 0 A A + 

1 3F9 0D6C+ 

1 3F A 0023 
1 3FB 0D27 
1 3FC 4 0 A A + 

13FD 0D23+ 

13FE 0 D20 
13FF 002B 

1400 4305+ 

1401 0D6C+ 

1402 0023 

1403 0031 

1404 4305+ 

1405 0D6C+ 


DC XLOC.X? 

JMM MOVF 
OC YLOC » Y2 

JMM MSG 
DC X1»Y1 »D0.0 


JMM MSG 
DC X2*Y2,D0.0 


JMM GIN 
LOA PKF 
SUB PKP1 
SLJB PKP1 
A 0 I 4 
STA 0 

JMM CRT START OISPL 
DC 1 

JMM FLOAT CALC OISP TIME 
DC Q 

JMM ED IV 
DC Q » D96 0 . *Q 


JMM FSUR 

DC X2»X1,A GET RF PQS 


JMM FSUR 
DC Y2*Y1,R 


JMM FSUR ESTIMATF VELOCITY 
DC A • EX 1 »WS 


JMM FD I V 

DC WS»0,G RFLATIVE X VEL 


JMM ESUR 
DC B » EY 1 * WS 


JMM ED IV 
DC WS » 0 » H 


LOA =-3 
STA TEMP 
LSTSY 
JMM LIE 
DC E U 1 » A * C 


JMM LIF 
DC A*G»F 


JMM DOT 
DC FU1 * A » P 


JMM DOT 
DC E LJ 1 » G » R 


1406 

140? 

1408 

1409 

1 40 A 
1 4 OR 
1 40C 
1400 
140F 
] 40F 
141(1 

141 1 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 
141 A 
141 R 
1 4 1 C 
1 41 D 
1 41 F 

1 4 1 F 

142 0 
1 4? 1 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 
142A 
1 42R 
142C 
1 42D 
1 42E 
1 42F 

1430 

1431 

1432 

1433 

1434 

1435 

1436 
14 37 
] 438 

1439 
1 43 A 
143R 
143C 
1 43D 
1 43F 
1 4 3 F 

1440 

1441 

1442 

1443 

1444 

1445 

1446 
] 447 

1448 

1449 


on?n 

1 4 F 0 
4 0 0 7 + 
0D31 + 

0 D27 

0001 
4015 + 
0D01 + 
4007 + 
14F0 + 
0028 
0FD6 
4 011 + 
0D01 + 
0FD6 
OF06 
DOAB + 

0 4 A 1 + 
0481 + 
523A + 
43B7 + 
0060 + 
0020 
0D01 
4007 + 

000 1 + 
0D2R 
0D01 
4007 + 
0D27 + 
0027 
0027 
4011 + 
0027 + 

0001 
0D01 
400C + 
0001 + 
0FD6 
0D01 
400C + 
0001 + 
OCFA 
0D01 

0 0 0 A + 
0901 + 
04R1 + 
523A + 
4045 + 
0029 + 

0001 
0029 
4010+SET 
0D23 + 
0070 
4010 + 
0D25 + 
007? 
42FC + 
0029 + 
40AC + 
0029 + 
4007 + 
14DE + 

1 7F5 
0D6E 
4007 + 
14DE + 


JMM FMtJL 
OC P,C,WS 


JMM TWICF 
DC WS 
JMM FMUL 
DC R » E , WS? 


JMM FSUR 

OC ws*ws?,ws? 


LOA WS2 HOLD STEADY IF DENOM ZFRO 

SAZ 1 

SKP 1 

JMP SET 

JMM LIF 

DC EUl.fi, WS 


JMM FMUL 
DC WS,F,WS 


JMM FMUL 
DC C,C,C 


JMM FSiJR 
DC C»WS,WS 


JMM FD I V 
DC WS,WS2,WS 


JMM FD I V 
DC WS,PI,WS 


LDA WS+1 HOLD STEADY ON EXCESSIVE CHANGE 

SRI 1 

SAN 1 

JMP SET 

JMM FAUO 

DC D , W S , 0 


JMM MO VF 
DC A , EX 1 

JMM MOVF 
DC B , E Y 1 

JMM RANGF 
DC D 

JMM TRIG 
DC D 

JMM FMUL CALC COMP OF ACCEL 
DC W»SIN,FV1 


JMM FMUL 
DC W , COS , FU1 


1 44- A 
144R 
1 44C 
1440 
144E 

144p 

1450 

1451 
14=;? 
14 S3 

1434 

1435 

1436 

1437 

1438 

1439 
1 43 A 
14SR 
143C 
1430 
14SE 
1 43F 

1460 

1461 
146? 

1463 

1464 

1465 

1466 

1467 

1468 

1469 
146 A 
1 46R 
1 46C 
1460 
146E 
146F 

1470 

1471 
147? 

1473 

1474 

1475 

1476 
1.477 

1478 

1479 
147A 
147R 
147C 
1470 
147E 
147F 
148 0 

1481 

1482 

1483 
1 484 

1485 

1486 

1487 

1488 

1489 
1 48 A 
148B 
1 4BC 

1480 


1 7F7 
0060 

F0A9 + INC TEMP 

50AD + JMP NEWT 

4007+ JMM FMLJt UPOATF POS ANO VEL 

0033+ DC Q, Fill, A 

0 D6C 
0023 

4040+ JMM HALF 

0023+ OC A 

4045+ JMM FAOO 

0044+ OC U 1 * A * IJ1 

0 D?3 
0 044 

4007+ JMM FMI1L 

0044+ DC U 1 * 0 « R 

0033 
0025 

4045+ JMM FAOO 

0048+ DC X1,B,X1 

0025 
0048 

4045+ JMM FAOO ( RFST OF VFI CHNG ) 

0044+ OC U1 « A 9 111 

0023 

0044 

4007+ JMM FMUL 

0033+ DC Q*EV1 , A 

0 D6E 
0 023 

4040+ JMM HALF 

0023+ OC A 

4045+ JMM FAOO 

0046+ DC VI* A, VI 

0 023 
0046 

4007+ JMM FMUl 

0046+ DC V1*Q,R 

0 D33 
0025 

4045+ JMM FAOO 

0O4A+ DC Y1,B.Y1 

0025 
0 04 A 

4045+ JMM FAOO 

0046+ DC VI* A, VI 

0023 
0046 

42B6+ JMM BOUND 

0048+ OC X 1 » XOFF 

0 CEF 

52AR+ JMP HUMAN 

42R6+ JMM BOUND 

0D4A+ DC Yl+YOFF 

0 CF1 

52AB+ JMP HUMAN 

42B6+ JMM BOUND 

0D5C+ DC X2 * XOFF 

0 CFF 

529E+ JMP CPU 

42B6+ JMM BOUND 

005E+ DC Y2.Y0FF 

0CF1 

529E+ JMP CPU 

4011+ JMM FSUR 

0D48+ DC XI * X? ♦ A MISL CLOSE? 

0 D5C 
0 023 





ir <. 

14R£ 

DOAE + 

LOA A + 1 


148F 

080? + 

AO I 2 


1490 

0 4R1 + 

SAN 1 


1491 

5 ? 9 A + 

JMP WGIM 


149? 

4011 + 

JMM FSIJP 


1493 

004A + 

DC Y1 » Y? • A 


1494 

0 05F 



1495 

0023 



1496 

D0AE + 

LOA A+l 


1497 

0803 + 

AO I 3 


1498 

0401 + 

SAG 1 


1499 

529E + 

JMP CPU 


1 49 A 

OOAF+WGIN 

LOA GINT WAIT FOR CPOS HAIRS 


149B 

04A1 + 

SA? 1 


149C 

5?9A + 

JMP WG IN 


1490 

FORO + 

JMP RECALC 


149E 

0001+CPU 

LOI 1 


1 49F 

4 043 + 

JMM MOOR 


1 4 A 0 

4020 + 

JMM MSG 


1 4 A 1 

0DFC + 

DC X2 , Y? » XAP 


14 A? 

0 OFF 



14 A3 

1 4 F 8 



14A4 

40?0 + 

JMM MSG 


14A5 

0048 + 

DC XI, Y] ,0T 


14A6 

004A 



1 4 A 7 

14EE 



1 4A8 

40R1+HUM 

JMM WA ITP 


14A9 

40F1 + 

JMM WIPF 


1 4 A A 

50R2 + 

JMP SETUP 


1 4 AB 

000 1 +HUMAN LOI 1 


1 4 AC 

4043 + 

JMM MOOF 


1 4 AO 

4020 + 

JMM m$g 


1 4 &F 

ODFC + 

DC X2 » Y? * WIN 


14AF 

0 05E 



14R0 

1 4F9 



14R1 

4007 + 

JMM F'MUI 


14R2 

14DF + 

DC W , 0 1 . 5 , W 


I 4R3 

1 4E2 



14R4 

14DE 



14R5 

5?A8 + 

JMP HUM 


1 4R6 

22D3+R0UND STX BOX 


14R7 

0700 + 

LAX 0 


1 4 R 8 

62RD + 

STA RADI 


14R9 

0701 + 

LAX 1 


1 4R A 

R2RE + 

STA BAD? 


1 4RB 

62CF + 

STA BA 03 


14RC 

4 011 + 

JMM FSUR 


14RD 

0000+RAD1 

DC 000 


14RE 

0 000 + RAD2 

DC 000, PAA 


1 4RF 

1401 . 


14C0 

0201 + 

LOA BAA 


14C1 

0402 + 

SAG 2 


14C2 

4048 + 

JMM FNEG 


1 4C3 

14D1 + 

DC BAA 


14C4 

4011 + 

JMM FSUR 


1 4C5 

0 00 0 + 8AD3 

DC 0 0 0 , R A A » B AA 


1 4C6 

1401 


1 4C7 

1401 



1 4C8 

4011 + 

JMM FSUR 


1 4C9 

1401 + 

DC RAA,D.?»BAA 


1 4CA 

14F4 


14CR 

1401 



1 4CC 

0201 + 

LOA BAA 


14 CO 

C2D3 + 

LDX RDX 


1 4CE 

0401 + 

SAG 1 


k 4CF 

07C2 + 

JMX 2 


1400 

0 7C3 + 

JMX 3 







14D1 

1 4r>2 
1 4D3 
140)4 
1 4 D5 

1406 

1407 

1408 
1 409 
1 40 A 
1 40R 
1 40C 
1400 
140E 
1 40F 
14F0 
14F1 
14F? 
1 4F3 
1 4F4 
] 4F5 
14F6 
1 4F7 
1 4F8 
14F9 
1 4F A 
1 4FB 
14FC 
14F0 
1 *FE 
14FF 
14F0 
14F1 
14F2 
1 4F3 
14F4 
14F5 
1 4F6 
14F7 
1 4 F8 
14F9 
1 4FA 
1 4FR 

14FC 
UFO 
1 4FF 
14FF 

1500 

1501 

1502 

1503 
1 504 

1505 

1506 


OOOO+RAA DC 0,0 
0000 

OOOO+BDX DC 0 
4833+072.2 OC 72.2R7,7 
0007 

7170+07-09 OC 7 . 09R3 » 3 
0003 

5666+05.4 DC 5.483,3 
0 0 03 

4CCC+D.15 DC .15R-?,-2 
FFFE 

7R00+D960. OC 960.810,10 
0 0 0 A 

0000+W DC 0,0 

0000 

0000+R DC 0,0 

0000 


6000+O1.5 
0 001 

6666+D.2 

FFFF 

DAC1+7AP 
DOAi 
0000 + 
D9CF+ WIN 
D5A0 
D7C9 
CFAO 
0000 + 
DEAO+QT 
0000 + 
22FR+ZFR0 
DAF8 + 

04D2 + 

C2F8 + 

07C1 + 

0600 + 

0540 + 

0740 + 

0741 + 

E2FB + 

52F1 + 

+ ZX 


DC 1.581,1 
DC .28-2,-? 


TXT, 4 ZAPS 
DC 0 

TXT, 7 YOU WIN 


DC 0 _ 

TXT, 2 a 
OC 0 
STX ZX 
LDA *ZX 
SAG 2 
LDX ZX 
JMX 1 
X X A 
CLA 
SAX 0 
SAX 1 
INC ZX 
JMP ZERO+1 
DS 1 


+ ■!<- 

2306+ RANGE STX RGX LIMIT APG TO RANGF 
0700+ LAX 0 

6301+ STA RADI 

6303+ STA RAD? 

4012+ JMM FRACT 

0000+R ADI DC 000 
4082+ JMM NORM 

0000+RAD2 DC 000 
C306+ LDX RGX 

07C1+ JMX 1 

+PGX DS 1 


+ -1 


1507 

2336+DFLOAT STX DFX 

150R 

2336 + 

STX 

DFX 

1509 

0D05 + 

LOI 

5 

150 A 

6338 + 

ST A 

FR + 1 

1 5 0 R 

0301 + 

LI X 

1 

1 5 0 C 

6339 + 

STA 

FR + 2 

1 5 0 D 

0300 + 

LTX 

0 

1 5 0 E ' 

6337 + 

STA 

FR 

1 5 0 F 

4082 + 

JMM 

NORM 

.1510 

1537 + 

DC FR NOR 

1F1 1 

D337 + 

LDA 

FR 

1512 

04A1 + 

SA7 

1 

1513 

5324 + 

JMP 

USU 

1514 

D066 + 

LDA 

= -11 

1515 

6338 + 

STA 

FR+] 

1516 

0339 + 

LDA 

FR + ? 

1517 

0402 + 

SAG 

2 

1518 

E338 + 

INC 

FP + 1 

1519 

0C81 + 

LPN 

1 

151 A 

6337 + 

STA 

FR 

1 5 1 B 

4082 + 

JMM 

NORM 

1 5 1 C 

1537 + 

DC FR 

1510 

C336+RET 

LDX 

DFX 

151 F 

0201 + 

INX 

1 

151 F 

0337 + 

LOA 

FR 

1520 

0340 + 

SIX 

0 

15?]. 

0338 + 

LDA 

FR+1 

1522 

0341 + 

STX 

1 

1523 

07C1 + 

JMX 

1 

1524 

D338+USU 

LOA 

FR + 1 

1525 

0905 + 

SRI 

5 

1526 

04R1 + 

SAN 

1 

1 527 

5310 + 

JMP 

RET 

1528 

08]0 + 

ADI 

16 

1529 

8379 + 

ADO 

LRNO 

1 52 A 

632C + 

STA 

SH3 

152R 

0339 + 

LDA 

FR + 2 

152C 

0CR0+SH3 

LPN 

0 00 

1520 

A337 + 

ORA 

FR 

1 52E 

6337 + 

STA 

FR 

152F 

04R1 + 

SAN 

1 

153 0 

5310 + 

JMP 

RET 

1531 

8068 + 

ADO 

= $40 0 0 

1532 

04R2 + 

SAN 

2 

1533 

4082 + 

JMM 

NORM 

1 534 

1537 + 

DC FR 

1535 

5310 + 

j, 

JMP 

RET 

1536 

+ DFX 

DS 1 


1537 

+ FR 

OS 3 


1 53A 

+ TEM 

DS 1 


1 53R 

2336+DFIX 

STX 

DFX 

153C 

0300 + 

LIX 

0 

1 53D 

6337 + 

STA 

FR 

1 53E 

0301 + 

LIX 

1 

1 53F 

0906 + 

SRI 

6 

1540 

04R1 + 

SAM 

1 

1541 

536E + 

JMP 

MAX 

1542 

0810 + 

ADI 

16 

1543 

0401 + 

SAG 

1 

1544 

5357 + 

JMP 

LOW 

1.545 

633A + 

STA 

TEM 

1546 

090F + 

SB I 

15 

1547 

04R2 + 

SAN 

2 

1548 

0540 + 

CLA 


1549 

534F + 

JMP 

SH2+1 

1 54 A 

0810 + 

ADI 

16 


DRL FIXED R5 TO SGL FLOAT 


UPPER HALF 


154B 

8378 + 

AOO 

LLN 

154C 

634E + 

STA 

SH? 

1 54D 

0337 + 

LOA 

FR 

154F 

0C00+SH2 

LLM 

000 

1 54F 

6338 + 

STA 

FP + 1 

1550 

0 3 7 A + 

LOA 

ARS1 5 

1551 

9 3 3 A + 

SUB 

TEM 

IBS? 

6354 + 

STA 

SHI 

1553 

0337 + 

LOA 

FR 

1554 

0CC0+SH1 

ARS 

000 

1555 

6337 + 

STA 

FR 

1556 

53in + 

JMP 

RET 

1557 

0441+LOW 

SAZ 

1 

1558 

5360 + 

JMP 

LOLO 

1559 

0337 + 

LOA 

FR 

155A 

0C01 + 

LLN 

1 

155B 

6338 + 

STA 

FR + 1 

155C 

0337 + 

LOA 

FR 

1550 

OCCF+FTXUF 

’ ARS 15 

155F 

6337 + 

STA 

FR 

155F 

5310 + 

JMP 

RET 

1560 

080F+LOLO 

Aor 

15 

3 561 

0481 + 

SAN 

1 

156? 

0484 + 

SKP 

4 

1563 

0540 + 

CL A 


1564 

6337 + 

STA 

FR 

1565 

6338 + 

STA 

FR + 1 

1566 

5310 + 

JMP 

RFT 

1567 

0100 + 

TWA 


156 8 

837C + 

AOO 

ARS] 4 

1569 

636R + 

STA 

SH5 

1 56 A 

0337 + 

LOA 

FR 

156B 

0CC0+SH5 

ARS 

00 0 

156C 

6338 + 

STA 

FR+1 

156D 

5350 + 

JMP 

FIXUP 

156F 

0337+ MAX 

LOA 

FR 

156F 

04R4 + 

SAN 

4 

1570 

OOR6 + 

LOA 

= $ 7 F F F 

1 571 

6337 + 

STA 

FR 

157? 

D04E + 

LDA 

= $ F F F F 

1573 

0483 + 

SKP 

3 

1574 

0083 + 

LOA 

=$8000 

15?5 

6337 + 

STA 

FR 

1576 

0001 + 

LOT 

1 

1577 

6338 + 

STA 

FR+1 

1578 

5310 + 

4* 

JMP 

RET 

1579 

OCBO+LRNO 

LRN 

0 

1 57 A 

0CCF+ARS15 

i ARS 

; is 

1 57B 

OCOO+LLN 

LLM 

0 

1 57C 

0CCE+ARS14 

■f *>$* 

3399+DADD 

ARS 

i 14 

1570 

STX 

DAX 

157E 

0300 + 

LIX 

0 

1 57F 

639 A + 

STA 

DD A + 

158 0 

0301 + 

LIX 

1 

1581 

639B + 

STA 

DD + 1 

158? 

0701 + 

LAX 

1 

1583 

6385 + 

STA 

DPT 

1584 

433B + 

JMM 

OF I X 

1585 

1586 

OOOO+DPT 
1 59C 

DC OOOtOR 

1587 

C399 + 

LDX 

DAX 

1588 

0?0? + 

I NX 

2 

1589 

05E0 + 

REX 

C 

158A 

D39B + 

LOA 

DD + 1 

158R 

8390 + 

AOD 

DB+1 

158C 

0341 + 

SIX 

1 


15RD 

039 A + 

LOA 

DD 

15RE 

0500 + 

REX 

V 

15RF 

01C0 + 

ADC 


] 590 

839C + 

ADD 

DR 

1591 

0415 + 

SNV 

5 

159? 

01R0 + 

ONA 


1593 

6337 + 

STA 

FR 

1 594 

0?41 + 

DNX 

1 

] 595 

2336 + 

STX 

DFX 

1596 

536F + 

JMP 

MAX 

1597 

0340 + 

5 T X 

0 

159R 

07C1 + 

4* v 

JWX 

1 

1599 

+ n ax 

05 1 


159A 

+ DD 

DS 2 


1 5°C 

+ 0R 

DS 2 


] 59E 

+ *><* 

23R4+0AVEP 

’ STX 

DHX 

159F 

0300 + 

LIX 

0 

1 5 A 0 

0CC1 + 

ARS 

1 

1 5 A 1 

63B5 + 

STA 

DH 

1 5 A? 

0301 + 

LIX 

1 

15A3 

0CA1 + 

IRI 

1 

1 5A4 

63R6 + 

STA 

DH+1 

15A5 

0201 + 

TNX 

1 

1 5 A 6 

0300 + 

LIX 

0 

15A7 

0CC1 + 

ARS 

1 

1 5AR 

639 A + 

STA 

DD 

1 5 A 9 

0301 + 

LIX 

1 

15AA 

OCA 1 + 

LRI 

1 

15AR 

05EO + 

REX 

C 

1 5 AC 

R3B6 + 

ADD 

DH+1 

1 5A0 

0201 + 

I MX 

1 

1 5 AE 

0341 + 

STX 

1 

1 5 AF 

D3R5 + 

LOA 

DH 

1 5R0 

01C0 + 

ADC 


1 5R1 

R39A + 

ADD 

DD 

15R2 

0340 + 

SIX 

0 

15R3 

07C1 + 

JMX 

1 

15R4 

+ DHX 

os i 


1 5R5 

+ DH 

DS 2 



MEAN ( A»R) =C 


15R7 

P3D0+LIF 

ST X LIX LTF RRACKFT OF TWO VFCTORS 

15R8 

0700 + 

LAX 0 

15R9 

6303 + 

STA LA] 

15RA 

080? + 

AO I 2 

] SRR 

63C7 + 

STA LA? 

1 BBC 

0701 + 

LAX 1 

IBRD 

6308 + 

STA LA3 

1BRF 

080? + 

AO I 2 

1 BPF 

63C4 + 

STA LA4 

1BC0 

0702 + 

LAX 2 

1 BC1 

63CD + 

STA LAS 

15C? 

4007 + 

JMM FMtJL 

1 BC3 

0000+LA1 

OC 000 

15C4 

0000+LA4 

DC 000,1 WS 

1 BC5 

1 50 1 


1BC6 

4007 + 

JMM FMIJI 

1 BC7 

0000 + L A 2 

OC 000 

1508 

0000+LA3 

DC 0 0 0 , LWS2 

1509 

1503 


1 50 A 

4011 + 

JMM FSUR 

1 SOB 

1501 + 

DC L WS , LWS2 

1 50C 

1503 


1 500 

0000+LA5 

DC 000 

1 BCE 

C300 + 

LOX LIX 

] BOF 

07C3 + 

JMX 3 

1500 

T »* 

+ LIX 

DS 1 

1501 

+ L WS 

ns 2 

1 5D3 

+ LWS? 

•f # 

OS ? 

1505 

23FF+OOT 

ST X DOX DOT PRODUCT OF TWO VECTORS 

1506 

0700 + 

LAX 0 

1507 

63F1 + 

STA DO 1 

150 8 

080? + 

AO I 2 

1509 

63F5 + 

STA DO? 

1 50 A 

0701 + 

LAX 1 

1508 

63E? + 

STA D03 

1 50C 

0802 + 

AO I 2 

1500 

63F6 + 

STA D04 

150E 

070? + 

LAX 2 

1 BOF 

63FP + 

STA DOS 

15F0 

4007 + 

JMM FMIJL 

15F1 

0000+001 

DC 0 00 

15F2 

0000+003 

DC 0 0 0 , LWS 

15F3 

1501 


1 5F4 

4007 + 

JMM FMIJL 

1 5F5 

0000+DO2 

DC 000 

15F6 

0000+004 

DC 0 0 0 , L WS2 

1 5F7 

1503 


1 5F8 

4045 + 

JMM F ADO 

15F9 

15D1 + 

DC LWS » L WS2 

1 5F A 

1503 


1 5FR 

0000+D05 

DC 000 . 

1 5FC 

C3EF + 

LOX DOX 

1 5FD 

07C3 + 

JMX 3 

15FE 

+ OOX 

DS 1 


+ 

END 


+ * TEKTRONIX PLOTTING POUTINF 
+ ENTRY CRT?XPOS?YPOS?PKP1?RLFN2 

+ ENTRY XLOC? YLOC? MARK 

+ FXTRN PI OT ? CALCOMP 

+ EXTRN MonF»QMODO»RINI*ROCORD 

+ FXTRN PKP « P AK 

♦ EXTRN FAnO*FSUB*FMUL»FOIV*FIX*FL OAT, NORM, FRACT 

+ EXTRN XOFF?YOFF,SCALF 

15FF 20P4+CRT STX PX 

15F0 0700+ LAX 0 

] 5F 1 04A4 + SA7 4 

1 FFR OPH 1 + SRI 1 

15F3 0 4 A 1 + SA7 1 

I 5F4 048?+ SKP 2 

15F5 5 0 R 5 + JMP SWIRIJF 

1 5F6 50R6 + JMP NUBUF 

1. 5F7 0901+ SRI 1 

1 5FR 04A1+ SA7 1 

15F9 0481+ SKP 1 

15FA 50R7 + JMP FORGFT 

15FB 0300+ LIX 0 

1 RFC 6081+ STA X 

1RFD 0301+ LIX 1 

15FE 6062+ STA X+l 

1 5FF 0?01+ I NX 1 

1600 0300+ LIX 0 

1601 62RF+ STA Y 

1602 0301+ LIX 1 

1603 62C0+ STA Y+l 

1604 0701+ LAX 1 

1605 62CP+ STA OP 

1606 02C1+ LD A IX 

1607 62C5+ STA XL SAVE OLD POSITION 

1608 D2C6+ LDA IY 

1609 6?CA+ STA YL 

1 6 0 A 4011+ JMM FSUR 

■1 6 0 B 16BD+ OC X » XOFF ? I X 

1 6 0 C OCEF 
160D 16C1 

160E 4011+ JMM FSUR 

1 6 0 F 16RF+ DC Y,Y0FF,IY 

1610 0CF1 

1611 16C6 

1612 4007+ JMM FMUL CONVERT INCHES TO INCREMENTS 

1613 16C1+ DC J X ? SCALE ? IX 

1614 0DE4 

1615 16C1 

1616 D?C2+ LDA IX+1 *4 RESOLUTION 

1617 0802+ ADI 2 

1618 62C2+ STA IX+1 

1619 4045+ JMM FADD MOVE ORIGIN TO LOWER LFFT CORNER OF SCRFEN 

1 6 1 A 16C1+ OC IX?0X?IX 

161 B 1 6C3 
1 6 1 C 16C1 

1610 4018+ JMM FIX 

1 6 1 E 16C1+ PTR IX CONVERT OT FIXED POINT INCREMENTS 

1 6 1 F 4007+ JMM FMUL SAME FOP Y COORD 

1620 16C6+ DC IY* SCALE? IY 

1621 0DE4 

1622 1 6C6 

1623 D2C7+ LDA IY+1 

1.624 0802+ ADI 2 

1625 62C7+ STA IY+1 

1626 4045+ JMM FADD 

1627 16C6+ DC IY?0Y?IY 

1628 1 6C8 

1629 16C6 
1 62A 4018 + 


JMM FIX 


1 6?R 16C6+ PTR IY 

162C D2C1 + LOA I.X 

16?D 92C5 + SUB XL CALC a DFLAY CHARS 

16?F 0140+ ARA 

1 6?F 63R0+ STA MX 

1630 D2C6 + LOA IY 

1631 9?CA+ SUP YL 

163? 0140+ ARA 

1633 63R1+ STA MY 

1634 93R0+ SUB MX 

1635 0401+ SAG 1 

1636 0540+ CLA 

1637 R3B0+ ADD MX 

1638 63B0+ STA MX 

1639 0540+ CL A 

1 63 A 04FO+ DIV 

163R 0000+ DC 0»MX,DTIMF 

163C 1 7R0 
1630 17R? 

1 63F 04A6+ SAZ NOWATT 

163F 0100+ TWA 

1640 63R0+ STA MX 

1641 0096+ LDI $96 

164? 4058+ JMM PAK 

1643 E3B0+ INC MX 

1644 5P41+ JMP tt-3 

1645 DPCB+MOWAIT LDA OP 

1646 B08F+ ANA =-? 

1647 0902+ SRI 2 

1648 04A5+ SAZ 5 

1649 0902+ SRI 2 

1 64A 04A1+ SAZ 1 

164B 5262+ JMP LEAF 

164C 0540+ CIA 

1640 0431+ SKP 1 

164F 0001+ LOI 1 

1 6 4 F 6396+ STA AUK 

1650 4264+ JMM DRAW 

1651 D?CR+ LDA OP 

165? 04C1+ SLZ 1 TS MARKFR WANTED 

1653 0481+ SKP 1 

1654 5262+ JMP LEAF 

1655 E396+ INC AUK FORCF DRAWING 

1656 C0R8+ LOX =-6 

1657 2397 + ORABOX STX SCWAX 

1658 02C1+ LDA IX 

1659 879F+ ADD DX+6,1 

1 65 A 62C1+ STA IX 

1 65R 02.C6+ LDA IY 

165C 87A4+ ADD DY+6,1 

1650 62C6+ STA IY 

I65F 4264+ JMM DRAW 

1 65F C397+ LDX SCWAX 

1660 0201+ INX 1 

1661 5257+ JMP DRABOX 

1662 C2BC+LEAF LDX PX 

1663 07C3+ JMX 3 

1664 23A4+DRAW STY ORX 

1665 D2C1+ LDA IX 

1666 0401+ SAG 1 

1667 0540+ CLA 

1668 90R9+ SUB = 4095 

1669 04B1+ SAN 1 

1 66 A 0540+ CL. A 

166R 8089+ ADD =4095 

166C 63A5+ STA DIX 

1 66D 02C6+ LDA IY 


i 




1 66F 

0402 + 

SAG 

2 

c • 

1 6 6F 

0 4 A 1 + 

SA7 

1 


1670 

0540 + 

OLA 



1671 

90BA + 

SUB 

= 3120 


167? 

0481 + 

SAN 

1 


] 673 

0540 + 

CLA 



1674 

80BA + 

ADD 

= 3120 


1675 

6 3 A 6 + 

STA DIY 


] 676 

D3A5 + 

LDA 

DIX 


1677 

0087 + 

LRN 

7 


167ft 

Ofi?0 + 

ADI 

520 


1679 

63AA + 

STA 

HX 


1 67 A 

D3A5 + 

inA 

DIX 


1 67B 

0CRH + 

LRN 

2 


167C 

R0A3 + 

ANA 

= S1F 


1 67D 

0840 + 

ADI. 

$40 


167F 

63AB + 

STA 

LX 


167F 

03AR + 

LDA 

DIX 


1 6ft 0 

B0RB + 

ANA 

= 3 


1 6ft 1 

6 3 A ft + 

STA 

XBYTF 


16R2 

D3A6 + 

LDA 

DIY 


1 6 ft 3 

0C87 + 

LRN 

7 


1 6B4 

0820 + 

ADI 

$20 


16ft5 

63A7 + 

STA 

HY 


1 6ft6 

D3A6 + 

LDA 

DIY 


16ft7 

0082 + 

LRN 

2 


1 6ftft 

B0A3 + 

ANA 

= $ 1 F 


16ft9 

0860 + 

ADI 

$60 


1 6ft A 

6 3 A 9 + 

STA 

LY 


16ftB 

D3A6 + 

LDA 

DIY 


16RC 

R0BR + 

ANA 

= 3 


16ftD 

0002 + 

LLN 

2 


1 6ftE 

A3A8 + 

ORA 

XBYTF 


1 6BF 

0860 + 

ADI 

$60 


] 690 

63A8 + 

STA 

XBYTF 


1691 

D3AA + 

LDA 

HX DETERMINF WHICH BYTES MEED XMITING 


1692 

F3AF + 

OA A 

LPOS+2 HI X niFF 


1 693 

0484 + 

SKP 

4 


1694 

0483 + 

SKP 

3 


1695 

0540 + 

CLA 



1696 

63A A + 

STA 

HX CLEAR UNNECESSARY BYTE 


1697 

0481 + 

SKP 

1 


169ft 

63AF + 

STA 

LPOS+2 SAVE MEW VALUE 

: 

1699 

0 3 A 7 + 

LDA 

HY 


1 69 A 

F3AC + 

CAA 

LPOS 


1698 

0484 + 

SKP 

4 


1 6QC 

0483 + 

SKP 

3 


1 6°D 

0540 + 

CLA 



169F 

63A7 + 

STA 

HY 


169F 

0 481 + 

SKP 

1 


1 6 A 0 

63AC + 

STA 

LPOS 


1 6 A 1 

D396 + 

LDA 

AUK SHOULD LIME BE INVISIBLE 


1 6 A 2 

04D2 + 

SAG 

2 


1 6 A3 

0D9D + 

LDI 

$9D US 


16A4 

4058 + 

JMM 

PAK 


16A5 

C094 + 

LDX 

= -5 


16A6 

D7AC + 

LDA 

HY+5, 1 


1 6A7 

23AF + 

STX 

TRX 


1.6AR 

4058 + 

JMM 

PAK 


1 6A9 

C3AF + 

LDX 

TRX 


1 6 A A 

0201 + 

I NX 

1 


1 6 A B 

52A6 + 

JMP 

#-5 


16AC 

DO 1 6 + 

LDA 

CALCOMP 


1 6 AD 

04D1 + 

SAG 

1 


.1 6 A F 

5RA4 + 

JMP 

*DRX 


1 6 AF 

D396 + 

LDA 

AUK 


16P0 

0001 + 

LLN 

1 


16R1 

0802 + 

ADI 

2 





1 6R2 

6PB6 + 

STA 

PEN 

16R3 

4017 + 

JMM 

PLOT 

16R4 

16C1 + 

DC 

IX, IY 

16R5 

16C6 



16B6 

OOOO+PFN 

DC 

0 

16R7 

5RA4 + 

JMP 

*DRX 





16R8 

04A2+EDO 

SA7 

2 

1 6B9 

0R46 + 

EDO 

4,6 

1 6 R A 

52R9 + 

JMP 

*-l 

1 6RR 

07C0 + 

+ # 

JMX 

0 

16RC 

oooo+px 

DC 

0 

1 6PD 

0 0 0 0 + x 

DC 

0,0 

16RF 

oooo 



16RF 

0000+Y 

DC 

o 

o 

1600 

0000 




+ X P 0 s 

loci oooo+ix 
1602 oono 

1*03 4000+OX 

1604 oonc 

1605 oooo+xl 

+ YPOS 

1606 OOOO+IY 

1607 0000 

1608 61RO+OY 

1609 OOOB 

1 60 A OOOO+YL 
1 60R OOOO+OP 
1 60C 16CF+PKP] 
1600 1732+PKP2 
160E + RF1 

1732 +BF2 

179.6 OOOO + AUK 

1797 OOOO+SCWAX 

1798 0002+DX 

1799 FFFC 
179A 0000 
179R 0004 
1790 0000 
1790 FFFE 
179E 0002+DY 
179F 0000 

1 7 AO FFFC 
1 7 A 1 0000 
1 7 A 2 0004 
1 7 A3 FFFF 
1744 OOOO+DRX 
17A5 OOOO+DI X 
17A6 OOOO+DIY 
17A7 OOOO+HY 
1 7 A 8 OOOO + XBYTF 
1 7 A 9 OOOO + LY 
1 7 A A OOOO + HX 
17AB OOOO+LX 
1 7 AC OOOO + LPOS 
1 7 A[) 0000 
17AE 0000 
1 7 Ap OOOO + TRX 
17R0 OOOO+MX 
17R1 OOGO+MY 
1 7B2 05DC+DTIME 


EQIJ X 
DO 0,0 

DC 2048R 1 2 » 1 ? 

DC 0 
FQtJ Y 
DC 0,0 

DC 1560R11 ,11 

DC 0 
DC 0 
DC BF1 
DC 8F2 
D6 100 
DS 100 
DC 0 
DC 0 

DC 2» “4, 0,4,0, 


DC 2,0, —4, 0,4, 


DC 0 
DC 0 
DC 0 
DC, 0 
DC 0 
DC 0 
DC 0 
DC 0 

DC 0,0,0 


DC 0 
DC 0 
DC 0 
DC 1500 



17R3 D2CC+NUBUF LDA PKP1 

17R4 0C01+ LLN 1 INITIALIZE AT CURRENT BUFFER 

1 7R5 60BC+ STA PKP 

17B6 D04E+FORGET LDA =-l DESTROY PREVIOUSLY RFMEMRFPED POSITION 



7R7 

63AC + 

STA 

LPOS 

7RR 

63AF + 

STA 

LPOS+2 

7P9 

62C5 + 

STA 

XL 

7R A 

6?CA + 

STA 

YL 

7RR 

07C1 + 

JMX 

1 

7RC 

0501+SWIRUF SEX H GlVF 

7RD 

C08D + 

LOX 

= $18 

7RE 

D0BE + 

LOA 

=SCOPF0UT 

7RF 

0740 + 

SAX 

0 

7C0 

D0RC + 

LOA 

PKP 

7C1 

92CC + 

SUB 

PKP 1 

7C2 

9 2 C C + 

SUB 

PKP1 

7C3 

0801 + 

ADI 

1 

7C4 

P08F + 

ANA 

= -2 

7C5 

63EE + 

STA 

BLEM RECO 

7C6 

0742 + 

SAX 

2 

7C7 

D2CD + 

LDA 

PKP? 

7C8 

62C1 + 

STA 

IX 

7C9 

D2CC + 

LOA 

PKP 1 

7CA 

62CD + 

STA 

PKP? 

7CB 

0741 + 

SAX 

1 

7CC 

02C1 + 

LOA 

IX 

7CD 

62CC + 

STA 

PKP 1 

7CE 

0540 + 

CLA 

7CF 

0743 + 

SAX 

3 

700 

0008 + 

LDI 

8 TURN ON 

701 

0F46 + 

FCO 

4*6 

702 

5301 + 

JMR 

*-l 

703 

05C1 + 

RRX 

H 

704 

C2BC + 

LOX 

PX 

705 

53R3 + 

JMP 

NURIJF 

706 

DOAF+SCOPEOUT 

LDA GIN I 

707 

04A7 + 

SA7 

7 

708 

40BF + 

JMM 

RDCORO 

709 

D3FF + 

LDA 

BLEM? 

70 A 

63EF + 

STA 

BLEN 

70R 

02RD + 

LOA 

XPOS 

70C 

63F0 + 

STA 

XLOC 

700 

D2RF + 

LOA 

YPOS 

70E 

63F2 + 

STA 

YLOC 

70F 

D0C0 + 

LDA 

QMODO 

1 

7F0 

04A7 + 

SA7 

7F1 

0004 + 

LOI 

4 

7F2 

0F46 + 

ECO 

4*6 

7F3 

53F2 + 

JMP 

*-l 

7F4 

13E5 + 

JRL 

*+l 

7F5 

0P46 + 

FOO 

4,6 

7F6 

13F5 + 

JRL 

*-l 

7F7 

13F5 + 

JRL 

*-? 

7FR 

0096 + 

LDI 

$96 RESTA 

7F9 

0R46 + 

EDO 

4,6 

7 FA 

53E9 + 

JMP 

*-l 

7FB 

C2CD + 

LOX 

PKP? 

7FC 

03FF + 

LDA 

BLEN 

7FD 

1306 + 

JRL 

SCOPEOUT 

7FE 

OOOO+BLEN 

DC 0 


7FF 

+RLEN2 

! DS 

1 

7F0 

+ XLOC 

OS 2 


7F2 

+ YLOC 

DS 2 

7F4 

+ MARK 
+ 

OS 1 
END 



CURRENT BUFFER TO SCOPE 


ENGTH 


SCOPE INTERRUPT 


IN REP MODE 



+ * STNRL.F PRFClSinM FLOATING sinf-cosxnf 

A. 


T " 

+ 

FNTRY TPT6»SIN»COS 


+ 

FXTRN FRACT 


+ 

FXTRN No pm 
FXTRN Fix, FLOAT 


+ 

17F5 

+ SIN 

OS 3 

17F? 

+ COS 

DS 2 

17F9 

20C1+TRI8 

STX TX 

1 7F A 

0300 + 

LTX 0 

1 7FR 

60C3 + 

STA ANG 

17FC 

0301 + 

LIX 1 

1 7FD 

60C3 + 

STA ANG+1 

1 7FE 

4013 + 

JMM FRAFT 

17FF 

1834 + 

DO ANG 

1 ROD 

0334 + 

LDA ANG 

1801 

6336 + 

STA X ANGLE TO ARG OF SERIES CALCULATOR 

1 RO? 

4313 + 

JMM SICO DO TRIG SERIES 

18 03 

6004 + 

STA SIN 

1804 

0334 + 

LDA ANG ROTATE BY 90 DEG FOR COSINF 

1803 

8068 + 

ADD =$4000 

1806 

6336 + 

STA X 

1807 

4313 + 

JMM SICO 

1 808 

60C5 + 

STA COS 

1809 

0540 + 

CL A 

1 8 0 A 

6006 + 

STA SIN+1 

1R0R 

6007 + 

STA COS+1 

1 80C 

4083 + 

JMM NORM N0RMALI7F. RESULTS 

1800 

17F5 + 

DC SIN 

IP OF 

4082 + 

JMM NORM 

1 8 0 F 

17F7 + 

DC COS 

1 R 1 0 

0333 + 

LDX TX 

1811 

0701 + 

+ -* 

D236+SICO 

JMX 1 

181 ? 

LDA X CALC SIN X 

1813 

05D0 + 

RFX V OONVFRT X TO +-90 SCALED TO +-1 

1814 

0041 + 

ALS 1 

1815 

041? + 

SNV 2 MO OVERFLOW IF IN +-90 

1816 

80R3 + 

ADD =$8000 

1817 

0100 + 

TWA 

181 8 

6336 + 

STA X 

1819 

04A1 + 

SAZ 1 

181 A 

0481 + 

SKP 1 

1R1B 

0700 + 

JMX 0 0*180 ARE ZERO 

1 81 C 

D336 + 

LDA X 

1810 

04FO + 

MPY 

1 8 1 E 

0000 + 

DO 0 * X « T 

1 81 F 

1836 


1820 

1838 


1 8? 1 

6337 + 

STA Z 7 = X tt X 

1 832 

04F0 + 

MPY CALC SIN (X) =X+X* (Cl+Z* (C3+Z*C5) ) 

1833 

0000 + 

DC 0.C5.T 

1 8?4 

1838 

1 8?5 

1838 


1836 

0CC3 + 

ARS 3 SFT BTNARY POINT 

1837 

833A + 

ADD C3 

1838 

04E0 + 

MPY 

1839 

0000 + 

DC 0 + Z ? T 

1 83 A 

1837 


1 R3R 

1838 


1 83C 

8239 + 

ADD Cl 

183D 

04FO + 

MPY 

1 83E 

0000 + 

DC 0 ? X » T 

1 83F 

1836 


183 0 

1838 


1831 

8336 + 

ADD X 

1832 

0700 + 

JMX 0 

1833 

0000+TX 

DC 0 


1P34 

nnoo+ANG 

DC 

0*0 

1R35 

noon 



1 B 36 

oooo+x 

DC 

0 

1 P 37 

0000+7 

DC 

0 . 

1B3P 

OOOO+T 

DC 

0 

1 B39 

4900+Cl 

DC 

$490 0 

IR3A 

ABD0+C3 

DC 

-$5R30 

] B3R 

4993+C5 

DC 

$4993 


+ 

END 


.570317077RO 

-.64P1013799B0 

.071B514138?B-3 


+ * CRT SYMBOL DRAWING ROUTINF 
+ * JMM SCR I RF 

+* DC X.Y.ST7F*MSG 

+ i'r 

+ F N T R Y SCRIBE 

+ EXTRN CRT »FADD»FSUB«FMUL»FD IV? FLOAT »FIX»NORM»FRACT 

+ ■»■ 

] BBC 2PP7+SCRI8F STX SCX 
1R3D 0300+ LTX 0 

1B.3F 6?AF + STA XQ 

1R3F 0301+ LIX 1 

1 B A. 0 6 ? R 0 + STA XQ+1 

1841 0201 + I NX 1 

184? 0300+ LIX 0 

1 B43 6?R 1 + STA YQ 

1844 0301+ LIX 1 

1 R45 62R2 + STA YQ+1 

1 846 0701+ LAX 1 

1847 6?4C+ STA SI7F 

1848 6 2 A P + STA SI7F? 

1849 070?+ LAX 2 

1 84 A 6315+ STA PTR 

] R4R 400C+ JMM FD I V CALC SI7F OF TEKPOINT 

184C 0000+SIZF DC O.D7,TFKPT 
1 84D 1 RR3 
1 84E 1 8R5 

1 84F DR15+CHLP LDA *PTR 

1850 04A1+ SA7 1 

1851 0482+ SKP 2 

188? C?R7 + LDX SCX 

1853 07C4+ JMX 4 

1854 0C8R+ LRN 8 

1855 4?5 A + JMM CRTDRAW 

1856 DR 1 5+ LDA *PTR 

1857 425A+ JMM CRTDRAW 

1.858 E315+ INC PTR 

1859 524F+ JMP CHLP 

+ # 

1 85 A 2316+CRTDRAW STX OPX 
1 85R R09C+ ANA = $FF 

185C 09A0+ SRI $A0 

185D 04B1+ SAN 1 

185E 0481 + SKP 1 

185F 07C0+ JMX 0 

1860 R0C8+ ANA =$3F 

1861 0600+ X X A 

1862 D71C+ LDA VECTORS 

1863 0C8R+ LRN 11 

1864 0401+ SAG 1 

1865 52A6+ JMP DUNMF 

1866 0100+ TWA 

1.867 631 R+ STA CT 

1868 D71C+ LDA VECTORS 

1869 B0C9+ ANA = $7FF 

1 86 A R0CA+ ADD =DF I ME 

1868 80CB+ ADD =DFINF-1 

1 86 c 6317+ STA DPTP 

I860 0D04+ LDI 4 

186E 6?A 0 + STA PENY 

186F D317+GBYTE LDA DPTR 

1870 0CC1+ ARS 1 

1871 0600+ XX A 

1872 0700+ LAX 0 

1873 0401+ SMC 1 

1874 0C08+ LLN 8 

1875 0CRR+ LRN 8 

1876 6318+ STA CHAR 

1877 0CR4+ LRN 4 


X VALS 0 TO 6 8 TO 15 


h 



1878 F0CC + 

CAA =7 ARF 0 TO 6 -1 TO -R 



] 879 527F + 

JMP NFRX 



] R 7 A R?R 0 + 

JMP PORy 



ir7b odo4 + 

10 I 4 X=7 IS NOP RUT RAISF PFN MFXT MOVE 



1 B7C 8?A0 + 

STA PFNY 



1 B7D 5?A3 + 

JMP INCH 



1B7F 0100+NFGX 

TWA 



1B7F 0R07 + 

AO I 7 



1 BB 0 62R8+POSX 

STA OX 



] B B 1 D318 + 

IDA CHAP 



IBB? BDCD+ 

ANA =5>F 



1 8B3 090A + 

SRI 10 



1 BB4 04D2 + 

SAG 2 



1885 0R0A + 

AO I 1 0 



IP 86 0481 + 

SKP 1 


, 

18R7 0100 + 

TWA 



] RR 8 62RA + 

STA OY 



1 BB9 4081 + 

JMM FLOAT 



1 BB A 1BRB + 

DC OX 



1 BBR 4081 + 

JMM FLOAT 



] BBC IBRA + 

DC DY 



1BBD 4007+ 

JMM FMIJI. SCALP TO SIZE 



1RBF 1RR8+ 

DC DX » TFKPT * DX 



1 BBF 1RR5 




] B9 0 1 BRB 




1 B9 1 4007+ 

JMM FMIJI 

JTj. 


1892 18RA+ 

DC OY*TFKPT*OY 



1893 1 BR5 




J 894 1 BR A 




TB 95 4045+ 

JMM FAOO 



1B96 1BAF+ 

DC XQ » D X * XR 



1B97 1PRR 




1898 1 8RC 




1 B99 4045+ 

jmm FAnn 



1 B9 A 18R1+ 

DC YQ,DY*YR 



1898 1 BR A 




1B9C 1 RRF 




1B9D 401F+ 

JMM CRT 



1R9E 1RRC+ 

DC XR.YR 



1 8 9 F 1 RRF 




1 B A 0 0000 + PFNY 

DC 0 



1 8 A 1 0D02 + 

LOI 2 



1 B A 2 62A0 + 

STA PENY 

- 


1 B A 3 F317+INCH 

INC DPTP 



1 B A 4 E31R + 

INC CT 



1.8A5 526F + 

JMP GflYTF 



1 BA 6 4045+DUNNE 

: JMM FADD 



18A7 18AF+ 

DC XQ 



1 BAB 0000+SIZE2 

! OC 0*XQ 



1 8 A 9 1 RAF 




IRA A 401F+ 

JMM CRT 



1RAB 1PAF+ 

DC XQ*YQ,4 



IP AC 1 BR 1 




1 B A D 0004 




1 B A E 5R16 + 

JMP *DRX 



+ * 




1 RAF 0000+XQ 

DC 0,0 



1 BR 0 0000 




1881 0000+YQ 

DC 0*0 



1 BR 2 0000 




1BR3 7000+07 

DC 7R3 * 3 



1BP4 0003 




1 8P5 0000+TFKPT DC 0,0 



1 BRB 0000 




1 RB7 0000+5CX 

DC 0 



1 BRB 0000+DX 

DC 0*0 



18R9 0000 




1 88 A 0000+DY 

DC 0*0 



1 P3R 

0 0 00 


1RRC 

oooo+xp 

oc 

1 PPD 

0000 


1RPE 

oooo+yp 

DC 

1RRF 

0000 



{ 


+ * CALCOMP SYMROL GPNFPAT IMG ROUTINE 

+ * 55 * 

+ *• JMM SYMROL 

♦ nc X » Y ■» M s g 

+ * ... 

+ MSG TXT »M RLAHBLAHBLAH 
+ # OC 0 

+ ■ft 

+ FMTRY SYMBOL 

+ FXTRN PI OT 

1 BOO ?31 2+SYMROL STX SYX 

1 BC 1 0300+ LIX 0 OFT X (IN INCREMENTS) 

IRC? 6313+ STA X 

1BC3 0201 + I MX 1 

1 B04 0300+ LIX O 

1B05 63] 4 + STA Y 

1 BC6 0701+ LAX 1 GFT LOCATION OF MFSSAGF 

1B07 6315+ STA PTR 

1 BC8 DB15+7LP LDA -PTR GET NEXT WORD OF MESSAGE 
1809 04A1 + SA7 1 FXlT IF 7FRO 

] BC A 0482 + SKP 2 

1 BOB C312+ LDX SYX 

1 BOC 07C3+ JMX 3 

1 BCD 0C8B+ LRN 8 PLOT HIGH RYTF 

180E 4203+ JMM DRAW 

1 BCF OR1S+ LOA *PTR 

180 0 F31S+ INC PTR 

1801 4203+ JMM DRAW PLOT LOW BYTWF 

1802 52CR + JMP ZLP 

+ ■!!■ 


1803 2316+DRAW STX DRX 

1804 09A0+ SB I SAO BLANK IS FIRST CHAR 

1 BOB POCB+ ANA -S3F MOO 64 

1B06 0600+ X X A GFT TABLE FMTRY FOR THIS SYMBOL 

1807 071C+ LOA VECTOR » 1 

1 BOR 0C8B+ LRN 11 GET NUMBER OF SEGMENTS IN CHAR 

1B09 0401+ SAG 1 

1 BD A 530A+ JMP OONF 

1 BOB 0100+ TWA 

1 BOC 631B+ STA CT 

1 BOD D71C+ LOA VECTOR* 1 

1 BOE B0C9+ ANA =T7FF GFT RYTF ADDRESS FIRST SEGMENT 

1 80 F B0C-A+ ADD =DF T NE 

1 8F0 B0CB+ ADD =DFINF-1 

1BF1 6317+ STA DPTP 

1 BF2 0 D 0 4 + LDI 4 

1 BF3 6304+ STA PEN 

1BF4 D317+DOD LDA DPTR GFT BYTF CONTAINING NEXT SEGMENT 

1BF5 0CC1+ ARS 1 GFT WORD ADDRESS 

] BF6 0600+ XXA 

1 RF7 0700+ LAX 0 GFT WORD 

IBF8 0401+ SNC 1 PICK PROPER BYTE 

18F9 0C0R+ LLN 8 

1 RF A 0CBB+ LRN 8 

1RFR 6318+ STA CHAR 

1 RFC OCR 4+ LRN 4 GFT X PART OF BYTF 

1BFD 0907+ SB I 7 X = 7 IS NOOP AND RAISE PFN FOR NEXT SEGMENT 

1BFF 0 4 A 1 + SAZ 1 

1 BFF 04B3+ SKP 3 

1 RF 0 0D04+ LDI 4 

18F1 6304+ STA PFN 

18^2 5307+ JMP INC 

IBF3 0807+ ADI 7 

1 RF 4 0C01+ LL.N 1 

18F5 8313+ ADO X 

1 8F6 6319+ STA XP SAVE NFW POS 

1 BF7 D31B+ LDA CHAP 


1PFB ROCD+ ANA = 5F GFT Y RYTF 

1 RF9 090A + SRI 10 0-10 IS 0-10 11-15 IS -1 THRU -5 

1 RF A 04D2 + SAG 2 

] BFB 0R0A + ADI 10 

18FC 0 4-81+ SKP 1 

1RFD 01 00+ TWA 

18FF 0C01+ LLN 1 

1 RFF 83 1 4- + ADD Y 

1900 63] A+ STA YP SAVF NEW Y POS 

1901 4017+ JMM PLOT 

1902 1919+ DC XP.YP 

1903 1 9 1 A 

1904 0000+PFN DC 0 

1905 0002+ LOT ? SET PFN TO DOWN FOP NFXT SEGMFMT 

1906 6304+ STA PEN 

1907 E317+INC INC DPTR MOVF TO NEXT RYTE 

1908 F31B+ INC CT 

1909 52E4+ JMP DDO 

1 9 0 A ODOF + DOME LDI 14 L F A V F PFN BY LOWER RIGHT CORNER OF CHAR 
1 9 0 R 8313+ ADD X 

1 9 OC 6313+ STA X 

1 90D 4017+ JMM PLOT 

1 9 0 E 1913+ DC X,Y,4 

190F 1914 

1910 0004 

1911 5B16+ JMP *DRX 

+" 

191? 0000+SYX DC 0 

1913 0000 + X. DC 0 

1914 0000+Y DC 0 

1915 0000+PTR DC 0 

1916 0000+DRX DC 0 

1917 OOOO+DPTR DC 0 

1918 0000+CHAR DC 0 
191.9 0000 + XP DC 0 
191 A 0 000 + YP DC 0 
1 9 1 B 0000+CT DC 0 

1 9 1 C 0144 + VECTOR DC SO 1 44 * 50 1 72 , 5294F 
1 9 1 D 0172 
191 E 294F 

1 9 1 F 5972+ DC 5597? , 58 1 ?F * 5 0 ] 7? 

1920 81 ?F 

1921 0172 

1922 4969+ DC $4969,51167,52127 

1923 1167 

1924 2127 

1925 212R+ DC 521 2R . $41 1 D , $2916 

1926 41 1 D 

1927 2916 

1928 3144+ DC 53 1 44 , 5 1 1 1 B , 5294A 

1929 1 1 1 P 
1 9? A 294 A 

192B 1125+ DC $1125,548R9»5?8C? 

1 9 2 C 48B9 
192D ?RC2 

1 9 2 E 40C7+ DC 540C7. 568CF, $30DC 

192F 68CF 

1930 30DC 

1931 4RF2+ DC 548E2 , 560FR . 5 1 8F7 

1932 60ER 

1933 18F7 

1934 80FA+ DC $8 0 F A , $6 1 0 A , 5595C 

1935 61 OA 

1936 595C 

1937 6190+ DC $61 90 , 5 1 97D , S293F 

1938 1Q7D 

1939 293F 

1 93 A 1980+ DC $ 1 980 , $6983 , $0 183 


] 93B 
1 93C 
1 93D 
1 Q 3E 
193F 
1 940 

1941 

1942 

1943 
1 944 
1945 
1 946 
1 947 

1948 

1949 
1 94A 
1948 
194C 
1 94D 
194F 
194F 

1950 

1951 
1 952 
1953 
1 954 

1955 

1956 

1957 

1958 

1959 
1 95 A 
195B 
1 95 C 
1950 
1 95 E 
195F 

1960 
1 96 ], 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 
1 96 A 
1 96B 
196C 
I960 
1 96F 
1 96F 

1970 

1971 

1972 

1973 
1 974 

1975 

1976 

1977 
1 978 
1979 
1 97 A 
197R 
197C 
1970 
1 97F 


6983 
0183 
400 1 + 

DC 

$4001 ,$6809, $4016 

6809 
4016 
381F + 

DC 

$3815, $3825, $302 C 

3825 
302C 
5032 + 

DC 

$5 039 , $303C • $3042 

303C 
3042 
3048 + 

DC 

$3048, .$304F, $1854 

304F 
1854 
2857 + 

DC 

$2857, $205C, $6060 

205C 
6060 
4S6C + 

DC 

$486C, $6075, $5881 

6075 
5881 
608C + 

DC 

$6Q8C,$2098,$R89C 

2098 
389C 
18A3 + 
28A6 
28AR 
28R0 + 

DC 

$1843,$28A6,$28AB 

DC 

$28R0,$20R5,$2154 

2 085 
2154 
0172 + 

DC 

$0172, $2158, $0190 

2158 
0190 
0000 + 

DC 

$0000 

0006 + DFINF DC SO 0 06 . $ 1 737 , $4640 

1737 
4640 
4303 
3746 + 

DC 

$3746, $4534, $4341, 

4534 
4341 
3000 
0434 + 

DC 

$0434, $040 7, $3746, 

0407 
3746 
3717 
0601 + 

DC 

$0601 ,$1030 ,$41 00 , 

1030 
4100 
0737 
4641 + 

DC 

$4641 ,$3000, $4000, 

3000 
4000 
0 434 
0407 + 

DC 

$0407. $4700 .$0434* 

4700 
0434 
0407 
4746 + 

DC 

$4746, $3717, $0601, 

3717 
0601 
1030 
4143 + 

DC 

$4143, $3300 ,$0704, 

330 0 
0704 
4447 
4010 + 

DC 

$4010, $3020, $2717, 

3020 

2717 



197F 

3747 



1 9 R 0 

4130 + 

DC 

*4130, *1001 *50200*50703 

] 9 R 1 

1001 



1 9R? 

0200 



19R3 

0703 



19R4 

4714 + 

DC 

54714.54040*50 007*50007 

19R5 

4040 



19R6 

0007 



19R7 

0 0 07 



19R8 

2447 + 

DC 

$2447,64000*60740*54730 

19R9 

4000 



1 9R A 

0740 



19RR 

4730 



19RC 

1001 + 

DC 

61001,6061 7*53746*64130 

1 9RD 

0617 



19RF 

3746 



19RF 

4130 



1990 

7000 + 

DC 

67000 . 6470 0 « 60434*50 40 7 

1991 

4700 



1 992 

0434 



1 993 

0407 



1994 

3746 + 

DC 

63746,54534*63010*60106 

1995 

4534 



1996 

3010 



1997 

0106 



1998 

1737 + 

DC 

61737,64641*53031*63048 

1999 

4641 



199A 

3031 



1 9 9 R 

304P 



199C 

0004 + 

DC 

50004,63404*60737*64645 

199D 

3404 



199F 

0737 



199F 

4645 



1 9 A 0 

3424 + 

DC 

63424,64001*61030*54143 

1 9 A 1 

4001 



1 9 A 2 

1030 



1 9 A3 

4143 



19A4 

3414 + 

DC 

63414,60506*51737*64620 

1 9 A 5 

0506 



19A6 

1737 



19A7 

4620 



1 9 A 8 

2707 + 

DC 

62707*64747*64130*61001 

19A9 

4747 



1 9 A A 

4130 



1 9 AR 

1001 



1 9 AC 

0207 + 

DC 

60207*60720*64707*61024 

1 9 AD 

0720 



19AF 

4707 



1 9 AF 

1024 



19R0 

3047 + 

DC 

53047,60740*67000*64707 

1981 

0740 



1 9R2 

7000 



19R3 

4707 



19R4 

2420 + 

DC 

$2420*52447*60747*60040 

19R5 

2447 



1 9R6 

0747 



1 9R7 

0040 



19RR 

3010 + 

DC 

63010*50106*61737*54641 

1 9R9 

0106 



1 9R A 

1737 



1 9RR 

4641 



19RC 

3010 + 

DC 

53010*53020*62716*60617 

19RD 

3020 



19PE 

2716 



] 9RF 

06] 7 



19C0 

3746 + 

DC 

63746,64401 *50040*60617 

19C1 

4401 



190? 

0040 




] 9C3 
1 9C4 
1 9C5 
1 9C6 
1 9C7 
1 9C8 
19C9 
1 9C A 
1 9CR 
] 9PC 
I^cd 
1 9TE 
1 9CF 

1900 

1901 

1902 

1903 

1904 

1905 

1906 

1907 

1908 
1 909 
1 90 A 
1 90R 
1 90C 
1 90D 
190E 
1 90F 
19FQ 
19F1 
19F2 
19F3 
1 9F4 
19F5 
19F6 
19F7 
1 9Ffi 
19F9 
1 9FA 
19FB 
19FC 
1 9FD 
1 9FF 
1 9FF 
19F0 
19F1 
1 9F2 
1 9^3 
1 9F4 
1 9F5 
1 9F6 
19F7 
1 9F8 
1 9F9 
19FA 
1 9FB 
19FC 
19FD 
1 9FE 
19FF 
1 A 0 0 
3 A 0 1 
1 A 0 2 
1 A03 
1 A 0 4 
1 A 05 
] A 06 


0617 


3746 + 
4534 
1434 
4341 

DC 

3010 + 
0107 
0343 
3337 

DC 

3047 + 
0704 
3443 
4130 

DC 

1001 + 
4637 
1706 
0110 

DC 

3041 + 
4334 
1403 
0747 

DC 

0014 + 
0506 
1737 
4645 

DC 

34] 4 + 
030 1 
1030 
4143 

DC 

3401 + 
1030 
4146 
3717 

DC 

0604 + 
1333 
4421 
2523 

DC 

0 343 + 
0343 
0343 
2315 

DC 

3123 + 
3511 
0047 
4031 

DC 

3647 + 
0011 
1607 
0110 

DC 

3041 + 
4334 
1405 
0617 

DC 

3746 + 
3727 
282B 
0242 

DC 

7044 + 
041 B 
2021 
1110 

DC 

2010 + 
1121 
2010 
1517 

DC 

7037 + 

354C 

2C29 

DC 


7:3746, 54534 
53010,50107 
53047,50704 
51001,54637 
$304] , $4334 
$0014,50506 
$3414,50301 
$3401,51030 
50604,51333 
$0343,50343 
$3123,53511 
$3647,50011 
53041,54334 
53746,53727 
$7044,50415 
$2010,51121 
$7037 , $354C 


,51434,54341 
,50343,53337 
,53443,54130 
,51706,50110 
,51403,50747 
,51737,54645 
,51030,54143 
,54146,53717 
,54421,52523 
,50343,52315 
,50047,54031 
,51607,50110 
,51405,50617 
,5282B,$0242 
,52021,51110 
,52010,51517 
, 52C29, 5490C 


1 A07 

490C 



1 408 

2C29 + 

DC 

$2C29,$0920,$2111,$1020 

1A09 

09?0 



1 AO A 

2111 



1 A OB 

1020 



1 AOC 

7013 + 

DC 

87013,82324,81413,52725 

1 A 0 D 

2324 



1 A 0 F 

1413 



1 A 0 F 

2728 



1 A 1 0 

4018 + 

DC 

84016,82736,80301,81020 

1 A 1 1 

2736 



1A12 

0 301 



1 A 1 3 

1020 



1 A 1 4 

4300 + 

DC 

$4300,82670,84620,87002 

1A1 5 

2670 


1 A16 

4620 



1 A 17 

7002 



1 A 1 8 

4270 + 

OC 

.8427 0,8440 4,84103,84501 

1 A1 9 

4404 


1 A 1 A 

4103 



1 AIR 

4501 



1 A 1 C 

4305 + 

DC 

$4305,80617,82736,83513 

1 AID 

0617 



1 A 1 E 

2736 



IMF 

3513 



1 A? 0 

2270 + 

DC 

$227 0.81011, $2120,81018 

1 A? 1 

1011 



1A?2 

2120 



1A23 

1018 



1 A?4 

2021 + 

DC 

$2021 ,$111 0,82070,81323 

1 A?B 

1110 


1 A?6 

2070 



] A?7 

1323 



1 APB 

2414 + 

DC 

.82414,81300 

1 AP9 

1300 




+ 

FND 



+ * SIM6LF PRECISION FLOATING POINT ARITHMATIC 

+ ENTRY FFUP,FADD,FMUL*FDIV 

+ ENTRY FLOAT *FIX»NORM»FNEG*FRACT 

+ ENTRY Mn VP 

1 A ? A 2280+FSUB STX FX FLOATING SUBTRACT 
1 A PR 0201 + INX 1 

] APC 0300+ LIX 0 

1 APD 05D0 + RFX V 

1APF 0100+ TWA COMPLFMFNT 

1 APF 0416+ SNV 6 

1 A 3 0 0301+ LIX 1 

l A 3 1 0801 + ADI 1 

1 A32 6?8?+ STA SMAMO+1 

1 A 3 3 D06B+ LD A =$4000 

1 A 34 6?81+ STA SMAMO 

1A35 5?3F + JMP ADRFST + 2 

1A36 6PB1+ STA SMAMO 

] A37 5P3C+ JMP ADRFST 

+ *• 


2PB0 + F ADD STX FX 

0201+ INX 1 OF' 

0300+ LIX 0 

6281 + STA SMANO 

0301 + ADRFST LIX 1 


summand 


6282+ STA 

C280+ LDX 

0300+ LIX 

6283+ STA 

0301+ LTX 

6284+ STA 

9282+ SUB 

F090+ CAA 

5248+ JMP 

5252+ JMP 

5264+ JMP 

0910 + SHIFS SB I 
04R1+ SAN 

5279+ JMP 

0810+ ADI 

A285+ ORA 

624F+ STA 

0281+ LDA 

0CC0+ ARS 

6281+ STA 

5264+ JMP 

0100+SHIFA TWA 
0910+ SRI 

04R7+ SAN 

C280+ LDX 

0202+ INX 

D281+ LDA 

0340+ SIX 

D282+ LDA 

0341+ SIX 

07C1+ JMX 

0810+ ADI 

A285+ ORA 

6260+ STA 

D283+ LDA 

0CC0+ AR5 

6283+ STA 

D282+ LDA 

6284+ STA 

05F0+DOAD RFX 
D283+ LDA 

8281+ ADD 

6283+ STA 


SMAND+1 

FX 

0 

ADFND 

1 

ADFND+1 

SMAND+1 COMPARE EXPONENTS 
= 0 

SHIFS 

SHIFA 

DO AO EXPONENTS EQUAL 
: 16 SUMMAND MUST BE SCALED 

1 IS SUMMAND INSIGNIFa 
RESULT YES, NO OP 

16 

ARS CREATE SHIFT INSTRUCTION 
* + 2 
SMANO 
0 

SMANO 

DOAO 

ADDEND MUST BE SCALED 

16 

7 

FX 

2 

SMANO SUMMAND IS ANSWER 
0 

SMAMD+1 

1 

1 

16 
APS 
•a + 2 
ADEND 

0 DO CALCULATED SHIFT 
ADEND • 

SMAND+1 

ADFND+1 

C*V 

ADEND DO ADDITION 

SMAMO 

ADEND 


SUMMAND 


ANSWER 


CALCULATED SHIFT 


ADDITION 



1 A68 

041E + 

SNV 

14 CHECK FOR OVERFLOW 

1 A 6 9 

0560 + 

L5B 

IVFRT SION BIT AND INSERT 

1 A6A 

6286 + 

STA 

TEMP HIGH MAGNITUDE BIT 

1 A6R 

D283 + 

LOA 

ADEND 

1 A 8 C 

R0R3 + 

A 00 

=$8000 

1 A6D 

0C31 + 

LLC 

1 

1A6F 

6283 + 

STA 

ADEND 

1 A6F 

0286 + 

LOA 

TEMP 

1 A70 

80R3 + 

ADO 

=$8000 

1 A71 

0570 + 

SSB 


1 A72 

0283 + 

LOA 

ADEND 

1 A 7 3 

0CA2 + 

LRI 

2 

1 A74 

6283 + 

STA 

ADEND 

1A75 

F284 + 

INC 

ADEMO+1 

1 A76 

0500 + 

MOP 


] A77 

4287 + 

JMM 

NORM 

1 A78 

1 A83 + 

PTR 

ADFMO 

1 A79 

C280 + RESULT LDX FX 

1 A7 A 

0202 + 

I MX 

2 

1 A7B 

0283 + 

LOA 

ADFMO 

1 A7C 

0340 + 

SIX 

0 

1 A7D 

0284 + 

LOA 

A DEMO + 1 

1 A7E 

0341 + 

SIX 

1 

1 A7F 

07C1 + 

4" 

JMX 

1 

1 ABO 

+ F X 

OS 1 


1 A.R1 

+SMAND 

i OS 

2 

1A83 

+ADEND 

i OS 

2 

1 AR5 

OCCO+ARS 

ARS 

0 

1 AR6 

+ TEMP 

-f ft 

OS 1 


1 AR7 

0300+NORM 

LIX 

0 

1AB8 

0 4 A 9 + 

SA7 

9 

1 AR9 

0500 + 

RFX 

V 

1 ABA 

0C41 + 

ALS 

1 

1 ABB 

0411 + 

SNV 

1 

1 ABC 

07C1 + 

JMX 

1 

1 ARD 

0340 + 

SIX 

0 FLOATING POINT NORMALIZE 

1 ARE 

0301 + 

LIX 

1 

1ARF 

0901 + 

SRI 

1 

1 A90 

0341 + 

SIX 

1 

1 A 9 1 

5287 + 

JMP 

NORM 

1AQ2 

0341 + 

SIX 

1 

1 A93 

07C1 + 

JMX 

1 

1 A94 

22D5+EDIV 

ST X 

FOX FLOATING DIVIDF 

1 A 95 

0300 + 

LIX 

0 

1A96 

04A1 + 

SAZ 

1 

1A97 

0484 + 

SKP 

4 

1 A 9 R 

0202+7RET 

I MX 

.2 

1 A99 

0340 + 

SIX 

0 

1 ARA 

0341 + 

SIX 

I 

1 ARB 

07C1 + 

JMX 

1 

1 A9C 

6206 + 

STA 

DEMO 

1 A9D 

0 301 + 

LIX 

1 

1A9E 

6207 + 

STA 

DEND+1 

1 A9E 

0201 + 

I NX 

1 


1 A AO 
1 A A 1 
] AA2 
1 A A3 
1AA4 
1 AA5 
1 A A 6 
1 A A 7 
1 A A8 
1 AA9 
1 AAA 


0301 + 
62D9 + 
0300 + 
6208 + 
05DC + 
04D7 + 
0100 + 
0508 + 
0413 + 
0068 + 
E209 + 


DSOP+1 

0 

DSOR 
V » R t S 
7 

R 

3 

= 181 
OSOR+1 



1AAR 0500+ NOP 

1AAC 6PDR + STA DSDP 

1AAD DPD6 + IDA DEND 

1 A A E 04DR + PAR R 

1 A AF 05D0+ RFX V 

1 A R 0 0504+ SFX 5 

1 AR 1 0100+ TWA 

1AR2 0413+ SNV 3 

1AR3 D06R + LDA = 1R1 

1AR4 F2D7+ INC DEND + 1 

1 ARR 0500+ NOP 

1 AB6 62D6 + STA DEND 

1AR7 92DR+ SUR DSDP 

1 ARR 6PDR + STA HI 

1AR9 04R1+ SAM 1 

1 AR A 6PD6 + STA DEND TAKEN CARE OF OVEPFLO BIT 

1 ARR DPD6 + LDA DEND DO RFST OF DUDE 

1 ARC 04F0+ DIV 

1 ARD 0000+ DC 0* LOW. DSOP 

1 ARE 1 AD A 
1 APE 3 ADR 

1 AGO 6PD6 + STA DEND SAVF QUOTIENT 

1 AC1 DPDB+ LDA HI OVERFLOWa 

1AC2 04R6 + SAN NOVERE 

1 AC3 DPD6+ LDA DEND 

1 AC4 0CR1+ LRN 1 

1 ACS 8068+ ADD =1R1 STICK IN OVERFLOW RIT 

1 AC6 6PD6+ STA DEND 

1 AC7 F2D7+ INC DEND + 1 ADJUST EXPONENT 

1ACR 0500+ NOP 

1 AC9 DPD7 + NOVERF LDA DFND+1 D TFFENCE EXPONENTS 
1 AC A 92D9+ SUR DSOP + 1 

1 ACR CPD5+ LDX FDX SAVF RESULT 

1 ACC 0P0P+ I NX 2 

1 ACD 0341+ SIX 1 

1 ACE DPD6+ LDA DEND 

1 A CF 0421+ SNR 1 

1 ADO 0100+ TWA 

1 AD 1 0431+ SNS 1 

1 AD2 0300+ TWA 

1 AD3 0340+ SIX 0 

1 AD4 07C1+ JMX 1 

+ -::- 

1 ADR +FDX DS 3 

1 AD6 +DEND DS 2 

1 ADR +DSOR DS 2 

1 AD A +LOW DS 1 

1 ADR +HI DS 1 

+ «• 

1 A DC 2306 + FMUL STX FMX FLOATING MULTIPLY 
1 ADD 0300+ LTX 0 

1ADF 6307+ STA CANO MULTIPLICAND 

1 ADF 0301+ LIX 1 

1 AF 0 630R+ STA CAND+1 

1 AF 1 0201+ I NX 1 

1 AE2 0300+ LIX 0 

1AF3 6309+ STA LIEP MULTIPLIER 

1 AF4 0301+ LIX 1 

1AF5 630A+ STA LIEP+1 

1AF6 D307+ LDA CANR 

1 AF7 05DO+ REX V 

1AFB 04E0+ MPY 

1 AF9 0000+ DC 0 • L IER » CAND 

1AFA 1 RO 9 

1AFB 1R07 

1 AEC 6309+ STA LIER SAVE HIGH PART 
1 AFD 0415+ SNV 5 -1*-1 GIVES OVERFLOW 

1AFE D06R+ LDA =54000 


1 


1AFF 6309+ STA 

1 A F 0 F30A+ INC 

1 A F 1 5PFF + JMP 

IAF? 5?FE + JMP 

1AF3 0C41 + ALS 

1 AF4 0411+ SNV 

1 AFS 5?FF + JMP 

1 A F6 D307+ LOA 

1 A FT 0C22 + LLI 

1AF8 D309+ LOA 

1AF9 0CP1 + LLI 

1AFA 6309+ STA 

1AFB 0 3 0 A + LOA 

1 A F C 0901+ SB I 

1AFD 630A+ STA 

1 AFF D309+AOFXP LOA 
1 AFF 0P01 + I NX 

1R00 0340+ SIX 

1 B 0 1 0 4 A ? + $AZ 

1 BO 2 0308+ LOA 

1 R 0 3 830 A + ADO 

1B04- 0341+ SIX 

1B05 07C1+ JMX 

+ ■«• 

1R06 +FMX OS 1 

1 B 0 7 +CANO DS 2 

1 B09 +LIFR OS ? 

+ * 

1BOB 2314 + FL.OAT STX 
1ROC 0D0F+ LO I 

1 R 00 0341+ SIX 

1 ROE 0700+ LAX 

1BOF 6311+ STA 

1 R 1 0 4P87 + JMM 

1 B 1 1 0000+ DC 0 

1R1 2 C314+ LDX FOX 

1 R 1 3 07C1+ JMX 1 


L IFP 
LIFP+1 
AOFXP 
AOFXP 

1 CHFCK IF NORMALIZED 
AOFXP 

CANO GET MAGNITUDE BIT TO SHIF TN 

LIFR 

1 

LIFP 

LIFR+1 

1 

LIFP+1 

LIFR CHFCK FO 7FRO PRODUCT 

0 

2 

CANO+1 
LIER+1 
1 
1 


ADO EXPONENTS 


FOX COMVFRT 
15 SFT TRIAL 
1 
0 

«■ + 2 
NORM 


TO FLOATING POINT 
EXPONENT 


IB 14 

OOOQ+FOX 

*4* v 

DC 

0 

1 B 1 5 

2336+FIX 

STX 

FF I X CONVERT TO 

1 B 1 6 

0300 + 

LTX 

0 

1 B 1 7 

6335 + 

STA 

F 

1 B 1 8 

0301 + 

LIX 

1 

1 B 1 9 

6336 + 

STA 

F+l 

1 B 1 A 

0910 + 

SRI 

16 

1B1R 

04R1 + 

SAN 

1 CHFCK IF TOO 

1B1C 

07C1 + 

JMX 

1 

IBID 

0810 + 

ADI 

16 

1B1E 

04DD + 

SAG 

13 SKIP IF RIG 

1B1F 

0 4 A 4 + 

SA7 

4 

1 B? 0 

0540+7RO 

CLA 

RESULT IS ZFRO 

IB? 1 

0340 + 

SIX 

0 

1 R?2 

0 341 + 

SIX 

1 

1 R?3 

07C1 + 

JMX 

1 

1 B?4 

0335 + 

LOA 

F CHECK IF -1 

1 B?5 

90R3 + 

SUB 

=$8000 

1 B?6 

04A1 + 

SAZ 

1 

1 B?7 

5320 + 

JMP 

7R0 

] R?B 

0901 + 

SRI 

1 SFT TO -1 

1 B?9 
1 B? A 

0340 + 
0540 + 

SIX 

CLA 

0 

1 R?B 
IB?C 

53?? + 
0100 + 

JMP 

TWA 

ZRO + ? 

1 B?D 

8337 + 

ADD 

ARSF CRFATF SHIf 
* + ? 

1 B?E 

6330 + 

STA 

1 B?F 

0335 + 

LOA 

F 

1B3 0 

0CC0 + 

ARS 

0 

1B31 

0340 + 

SIX 

0 


Cl A 
SIX 1 
JMX 1 


0540 + 
0 341 + 
07C1 + 
+ 

0000 + 
0 CCF + 

0500 + 

0300 + 
0100 + 
0416 + 
D06R + 

0340 + 

0301 + 
0 801 + 

0341 + 
07C1 + 
0340 + 
90CE + 
0 4 A 1 + 
07C1 + 
D0R3 + 
0340 + 
0 3 01 + 
0901 + 
0 341 + 
07C1 + 

0301 + 
0401 + 
5356 + 
0 910 + 
04R1 + 
5358 + 
0 810 + 

8365 + 
6360 + 
535F + 
080F + 
04D4 + 
0 540 + 

0340 + 

0341 + 
07C1 + 
0100 + 

8366 + 
6360 + 
0300 + 
0000 + 

0340 + 
0540 + 
0 341 + 
07C1 + 

•f 

OCOO + 
0CCF+ 
+ 

0300 + 
636F + 

0301 + 
0301 + 

0341 + 
036F + 
0340 + 
07C1 + 
0000 + 


F 

FFIX 

ARSF 

FNEG 


DC 0 
DS 1 
ARS 15 


FRACT 


LITL 

ZERO 


SCALE 

SHIFT 


LLN 

ARS15 

•S'r 

MOVE 


LIX 

SAG 

JMP 

SRI 

SAN 

JMP 

ADI 

ADD 

STA 

JMP 

ADI 

SAG 

CLA 

SIX 

SIX 

JMX 

TWA 

ADD 

STA 

LIX 

HLT 

SIX 

CLA 

SIX 

JMX 


6 

=$4000 

0 

1 

1 

1 

1 

0 

=$C000 

1 

1 

=$8000 

0 

1 

1 

1 

1 

: 1 CALC FRACTION OF NUMRER 
1 LOOK AT EXPONENT 
LITL 

16 M A G > = ] * IF TOO RIG SET TO ZERO 
1 

ZERO 

16 

LLN GENFRATF SHIFT INSTRUCTION 
SHIFT UNITS P WILL RECOME SIGN 
SCALF 

15 MAG<=1 » IF TOO SMALL SET TO ZFRO 
4 


ARSIS 

SHIFT 

0 

0 

0 


LLN 0 
ARS 15 

LIX 0 
STA MTP 
LIX 1 
I NX 1 
SIX 1 
LDA MTP 
SIX 0 
JMX 1 
DC 0 
END 



■m;- 
+ # 

CALC.OMP Pl.OTTT I NG ROUTINE 

■t 

if + 


+ 

ENTRY P| OT 



+ 

0R0 $380 


03ft 0 

20CF + PL.OT STX PLTX 


0.38 1 

0300 + 

LIX 0 OFT X 


0382 

6000 + 

STA X 


03«3 

0CCF + 

ARS 15 CONVFRT TO DOUBLE PRECISION 


0304 

6001 + 

STA X+l 


0305 

0201 + 

I NX 1 


0306 

0300 + 

LIX 0 


0307 

600? + 

STA Y SAVE Y IN DOUBLE PRECISION 


0308 

0CCF + 

ARS 15 


0309 

6003 + 

STA Y+l 


038 A 

0701 + 

LAX 1 GET IPFN 


03 OR 

6004 + 

STA PEN 


030C 

04R1 + 

SAN 1 NFG MFANS INITIALIZE 


0300 

5005 + 

JMP NORM 


038F 

0802 + 

ADI 2 


038F 

04R1 + 

SAN 1 


0390 

53E0 + 

JMP IN IT 


039} 

C0D6 + 

LDX = ~4? RETURN PEN TO ORIGIN 


0 392 

D453+LIMIT LDA XPAST+42,1 


03 Q 3 

O^FO + 

REX C SET COORD TO MAX IF BEYOND MAX 


0394 

84D7 + 

ADD MX + 42,1 


0 395 

0459 + 

LDA XRAST+43,1 


0396 

01CO + 

ADC 


0397 

8408 + 

ADD MX + 43 * 1 


0398 

04R6 + 

SAN 6 


0 3 99 

0407 + 

LDA MX+42, 1 


039A 

0 100 + 

TWA 


039B 

6453 + 

STA XRAST+42,1 


039C 

D4D8 + 

LDA MX + 43 » 1 


039D 

0180 + 

ONA 


039E 

6459 + 

STA XRAST+43,1 


0 39F 

0206 + 

I NX 6 


03AO 

020F + 

INX 15 


0 3 A 1 

5392 + 

JMP LIMIT 


03A2 

0001 + 

LDI 1 


03 A 3 

6 0 09 + 

STA ERRY SFT UP -X AND -Y COMMANDS 


03A4 

0008 + 

LDI 8 


03A5 

600A + 

STA ERRX 


03A6 

OD10 + 

LDI $10 RAISE PEN 


03 A 7 

OR20 + 

EDO 2,0 


0 3 A 8 

53A7 + 

JMP *-] 


03A9 

60DR + 

STA PPOS 


03 A A 

40DC + 

JMM WAITP 


03AB 

0540 + 

CLA 


03 AC 

60DD + 

STA CWOPD 


03 A D 

C0D6 + 

LDX =“4? 


03 AE 

05EO+OFCR RFX C DECREMENT COORD 


03AF 

0453 + 

LDA XRAST+42,1 


03BO 

0904 + 

SRI 4 


0 3B 1 

6453 + 

STA XRAST+42,1 


0 3B2 

0459 + 

LDA XRAST + 43,1 


03P-3 

0401 + 

SNC 1 


03B4 

0481 + 

SKP 1 


03B5 

0901 + 

SB I 1 


03 R 6 

6459 + 

STA XRAST + 43,1 


03B7 

0 4B3 + 

SAN 3 MO OP IF RFLOW ZERO 


03B8 

D0D0 + 

LDA CWORD 


03B9 

A401 + 

ORA ERRX+42,1 MFRGE IN COMMAND 


03BA 

60DD + 

STA CWORD 


03RB 

0206 + 

I MX 6 


03BC 

020F + 

INX 15 

■ t. 

03RD 

53AE + 

JMP OECR 


03BE 

D0DD + 

LDA CWORD 


03BF 

04A3 + 

SAZ 3 NO OP MFANS DONE 





03C0 0R20 + EDO 2*0 

0 3C1 53C0 + vJMP *-] 

03C2 53AR + JMP DECR-3 

03C3 0D20 + LDI $20 

03C4 0R20 + EDO 2*0 

0 305 53C4 + JMP "• - 1 

0 3C6 40DC+ JMM WAITP 

030? COOE + LDX = -]5 

030R 0009+ LOI 9 

0309 0R?0+ EDO 2*0 

03CA 53C9+ JMP *-l 

03CR 0201+ I NX 1 

03CC 53C9 + JMP *-3 

03CD 0010+ LDI $10 

03OE OREO + EDO 2*0 

0 30E 53CE+ JMP *-l 

O3D0 40DC+ JMM WAITP 

03D1 C0DE+ LDX =-15 

03n2 0D06+ LDI 6 

03D3 OREO + EDO 2*0 

0 3D4 5303+ JMP *-l 

0 3D5 0201+ INX 1 

0 3D6 53D3+ JMP *-3 

0 3D7 D0DF+ LDA XMAX 

0308 0ROR+ ADI 200 

0309 0800+ XXA 

0 3 DA 0D04+ LDI .$4 SPACF OUT BEYOND MAX 

03DB 0R20+ EDO 2*0 

03DC 53DP+ JMp *-l 

0 3DD 0241+ DNX 1 

03OE 53DR+ JMP *-3 

03DF 53P4+ JMP CLEAR-2 

03F 0 0100+INIT TWA INITIALIZE*-! N0RMAL»-2 REVERSED COORDS 
03F1 0801+ ADI 1 

03^2 60F0 + STA MEFR MEFR=1 FOR REVERSED 

03F3 DODO + LDA X X IS DFNOMMINATOR OF SCALE FACTOR 

03F4 60E1+ STA PROG 

03E5 D0D2+ LDA Y Y IS NUMERATOR 

03F6 0C02+ LLN 2 TIMES 4 

03F7 60E2 + STA RASTFR 

0 3F8 D04E + LDA = -l SFT NEGATIVE OF MAX COORD VALUFS 

03F9 60F3 + STA MX+1 

03FA 60F4+ STA MY+1 

03FB D0E5+ LDA =$4480 =-4*12000 X GETS THF BIG MAX 

0 3FC 60F6+ STA MX 

03FD D0E7+ LDA =-4200 

03FE 60F8+ STA MY 

03FF 0D1O+ LDI $10 COMMAND PEN UP 

03F0 0B20+ EDO 2*0 

03F1 53F0+ JMP *-l 

03F2 60DB+ STA PROS REMEMBER THAT PEN IS UP 

03F3 40DC+ JMM WAITP 

03F4 C0D6+ LDX = ~42 

03F5 0540+ CL.A 

03F6 6402+CLEAR STA ERRX2+42*! 

03F7 64E9+ STA 0X+42*1 

0 3F8 64EA+ STA 0X + 43*1 

0 3F9 64EB+ STA XPROG + 42.1 

0 3FA 64FC+ STA XPROG + 43,1 

03FB 6421+ STA XPR062+4?*1 

03FC 6424+ STA. XPR0G2 + 43>1 

03FD 6466+ STA XRASTP+42*! 

03FE 6468+ STA XRASTP+43,1 

0 3FF 6453+ STA XRAST + 42*1 

0400 67B6+ STA XRAST + 43..1 

0401 0206+ INX 6 

0402 020F+ INX 15 

0403 50ED+ JMP CLEAR 


0404 

637 A + 

STA 

>*■ ■ 

XMAX 

0405 

637B + 

STA 

XROS 

0406 

C375+FXIT 

LOX 

PLTX 

0407 

0 7C3 + 

+ tt 

D370+NORM 

JMX 

3 

0 4 0 R 

LOA 

MEEP RFVFRSF OOORDSX 

0 4 0 9 

0 4 01 + 

SAG 

1 

0 40 A 

048B + 

SKP 

11 

0 40 R 

0391 + 

LOA 

Y 

040C 

63A9 + 

STA 

T 

o 40 n 

D37C + 

LOA 

X 

040F 

0100 + 

TWA 


0 4 0 F 

6391 + 

STA 

Y 

041 0 

0CCF + 

ARS 

15 

041 1 

6392 + 

STA 

Y+l 

0412 

D3A9 + 

LOA 

T 

0413 

637C + 

STA 

X -Y TO X 

0414 

0CCF + 

ARS 

15 X TO Y 

0415 

6370 + 

STA 

X + l 

0416 

0376 + 

LOA 

PEN 

0417 

0 4 A 1 + 

SA7 

1 

0418 

522B + 

JMP 

PLT 

0419 

C308 + 

LOX 

=-42 SET ORIGIN 

0 4 1 A 

D7A6+S0RG 

LOA 

X + 42. 1 

0 4 1 R 

0100 + 

TWA 

0 4 1 C 

63AF + 

STA 

Q 

04 ID 

0CCF + 

ARS 

15 

0 4 1 F 

63AF + 

STA 

Q+l 

0 4 1 F 

07AA + 

LOA 

XPROG + 4? « 1 

0420 

05F0 + 

REX 

C 

0421 

83AE + 

ADO 

Q 

0422 

67A8 + 

STA 

OX + 42 * 1 

0423 

D7AB + 

LOA 

XPROG + 43 1 1 

0424 

01C0 + 

ADC 


0425 

83AF + 

ADD 

Q + l 

0426 

67A9 + 

STA 

OX+43,1 

0427 

0206 + 

I MX 

6 

0428 

020F + 

I NX 

15 

0429 

521 A + 

JMP 

SORG 

042A 

5206 + 

■f # 

JMP 

EXIT 

0428 

B3C2+PLT 

ANA 

=-?, 

0 42C 

0902 + 

SPI 

2 DETERMINE IF PEN SHOULD RE UP OR DOWN 

0420 

04A5 + 

SAZ 

5 

0 42F 

0902 + 

SB 1 

? 

0 42F 

0 4 A 1 + 

SAZ 

1 

0430 

0000 + 

HLT 

0 HALT IF UNKNOWN PEN VALUF 

0431 

0D10 + 

LDI 

$10 PEN UP 

043? 

0481 + 

SKP 

1 

0433 

0D20 + 

LDI 

$20 DOWN PEN 

0434 

936F + 

SUB 

PPOS COMPARE WITH CURRENT POSITION 

0435 

0 4A5 + 

SAZ 

5 

0436 

836F + 

ADO 

PPOS DIFFERENT so issue pen command 

0 437 

636F + 

STA 

PPOS 

0438 

0R20 + 

EDO 

2* 0 

0439 

5238 + 

JMP 

*-l 

0 43 A 

4368 + 

JMM 

WAITP 

0 43B 

C3DR + 

LDX 

= -42 

043C 

05E0 + SCALE REX 

: C CALC ARS POSITION IN PROGRAM UNITS 

043D 

07A6 + 

LOA 

X+4?, ; 

043F 

8 7 A 8 + 

ADD 

OX+42.1 ADD ORIGIN 

0 43F 

67AA + 

STA 

XPROG+42, 1 

044 0 

D7A7 + 

LOA 

X ♦ 4 3 » 1 

0441 

01C0 + 

AOC 


0442 

87A9 + 

ADD 

OX+43,1 

0443 

67AR + 

STA 

X.PROG + 43 • 1 

0444 

07 A A + 

LDA 

XPROG+ 42 * 1 CALC DIRECTION OF MOTION 

0445 

97R2 + 

SUB 

XPR0G2+42, 1 



0446 67B4 + STA XDIR+42>1 

0447 05E4 + RFX S.C APSOLUTF VALUF*SAVE SIGN 

0448 D7AB + LOA XPPOG+43,1 

0449 04R4+ SAN 4 

0 44 A 63AA+ STA T + l 

0 44f. D7AA + LOA XPPOG+42.1 

044C 63A9+ STA T 

0440 0468+ SKP 8 

044E 0504 + SEX S 

044F D7AA+ LOA XPR0G+4?,1 

0 45 0 0100+ TWA 

0 451 6 3 A 9 + STA T 

0452 D7AR+ IDA XPROG+43,1 

0453 0180+ ONA 

0454 01CO+ ADC 

04^5 63 A A + STA T + l 

0456 D3A9+ LOA T 

0457 0C21+ LLI 1 

0458 0C81+ LRN 1 

0459 63A9+ STA T 

0 45A D3AA+ LD A T+l 

045B 0C21+ LLI 1 

0 45C 63AA+ STA T + l 

045D D3A9+ LOA T TIMES NiJMFRATOR 

045E 04E0+ MR Y 

0 45F 0500+ NOP 

0460 0572+ PTR RASTFR 

0461 05A6+ PTR S 

0462 6 3 A 7 + STA S+l 

0463 D3AA+ LDA T+l 

0464 04EO+ MPY 

0465 0500+ NOP 

0466 0572+ PTR RASTFR 

0467 05A9+ PTR T 

0468 63AA+ STA T+l 

0469 D3A9+ LDA T 

0 46A 83A7+ ADD S + l 

046B 6 3 A 7 + STA S+l 

046C 04B1+ SAN 1 

046D 5271+ JMP *+4 

0 46E 83CD+ ADD =58000 

0 46F 6 3 A 7 + STA S+l 

0470 F3AA+ INC T+l 

0471 D3AA+ LDA T+l 

0472 04F0+ D I V DIVIDE RY DENOMINATOR 

0473 0500+ NOP 

0474 05A7+ PTR S+l 

0475 0571+ PTR PROG 

0476 67AD+ STA PXS+43»1 NFW POS SCALED TO PASTER UNITS*HI PART 

0477 D3A7+ LDA S+l 

0478 04F0+ DIV 

0479 0500+ NOP 

0 47A 05A6+ PTR S 

0 47R 0571+ PTR PROG 

047C 67AC+ STA PXS+42»1 LO PART 

0 47D 05EO+ REX C 

0 47E D7AD+ LDA PXS + 43»1 

0 47F 0CA1+ LRI 1 

0480 67AD+ STA PX$+43»1 

0481 D7AC+ LDA PXS+42>1 

0482 0C01+ LLN 1 

0483 0CA1+ LRI 1 

0484 67AC+ STA PXS+42»1 

0485 0437+ SNS 7 STICK SIGN BACK ON 

04R6 05EO+ RFX C 

0487 0100+ TWA 

0488 67AC+ STA PXS+4?*1 

0489 D7AD+ LDA PXS+43*! 




048A 

0180 + 

DMA 


04RR 

0100 + 

ADC 


o arc 

67 AD + 

STA 

P X S + 4 3 » 1 

048D 

D7B5 + 

LDA 

XPAST+42,1 COMPUTE DIRECTION FROM PEN TO END POINT 

0 ABF 

97AC + 

SIJB 

p XS + 42 » 1 

04AF 

67R0 + 

STA 

ERRX + 4 2*1 

GABO 

0206 + 

I NX 

6 

0491 

020F + 

I NX 

15 

0492 

5230 + 

JMP 

SCALF 

0493 

D39F + 

LDA 

YD I R COMPUTE SLOPE ERROR TO CURRENT PEN POS 

0494 

04E0 + 

*<PY 


0495 

0500 + 

NOP 


0496 

05R7 + 

PTR 

ERRX? 

0497 

05A9 + 

PTP 

T 

0498 

D38A + 

LDA 

XDIP 

0499 

04E0 + 

MPY 


0 49 A 

0500 + 

NOP 


0 49R 

059C + 

PTR 

ERRY2 

0 49C 

05AA + 

PTR 

T + l 

049D 

D3AA + 

LnA 

T + l 

049E 

9 3 A 9 + 

SUB 

T 

049F 

6374 + 

STA 

DSLOPF 

0440 

D39F + 

LDA 

YD I R 

0 4 A 1 

04B7 + 

SAN 

7 

0 4A2 

0 DO 4 + 

LDI 

4 

0 4 A3 

63A5 + 

STA 

DN 

04A4 

0D02 + 

LDI 

2 

04A5 

6378 + 

STA 

YCOM 

04A6 

D38A + 

LDA 

XDIP 

04A7 

0002 + 

LLN 

2 

04A8 

0487 + 

SKP 

7 

0 4 A 9 

D3R6 + 

LDA 

= -4 

0 4 A A 

63A5 + 

STA 

DN 

04AB 

0DO1 + 

LDI 

1 

0 4 AC 

6378 + 

STA 

YCOM 

0 4 AD 

D38A + 

LDA 

XDIP 

04AE 

0002 + 

LLN 

2 

04AF 

0100 + 

TWA 


04RO 

63A6 + 

STA 

S COMPUTE CHANGES IN DSLOPF FOR VARIOUS 

04R1 

63A8 + 

STA 

S+2 PEN MOVEMENTS 

0 4B2 

D38A + 

LDA 

XDIR 

0 4R3 

04B7 + 

SAN 

7 

04R4 

0004 + 

LDI 

4 

04R5 

6390 + 

STA 

DM 

0 4R6 

0D04 + 

LDI 

4 

0 4R7 

6379 + 

STA 

XCOM 

04R8 

D39F + 

LDA 

YD I P 

04R9 

0C02 + 

LLN 

2 

04RA 

0487 + 

SKP 

7 

0 4RR 

D3R6 + 

LDA 

= -4 

0 4RC 

6390 + 

STA 

DM 

04RD 

0008 + 

LDI 

8 

04RE 

6379 + 

STA 

XCOM 

04RF 

D39F + 

LDA 

YDIP 

0 4C0 

0 CO 2 + 

LLN 

2 

04C1 

0100 + 

TWA 


0 4C2 

0100 + 

TWA 


04C3 

63A7 + 

STA 

S+.1 

04C4 

83A8 + 

ADD 

S + 2 

0 405 

63A8 + 

STA 

S + ? 

0406 

D386 + 

LDA 

ERRX COMPUTE DISTANCE TO ENDPOINT 

0407 

0140 + 

ABA 


0408 

6373 + 

STA 

DR 

0409 

D39B + 

LDA 

ERRY 

040A 

0140 + 

ABA 


0 4CR 

8373 + 

ADD 

DR 

0 4CC 

6373 + 

STA 

DR 

0400 

C3DB+UPDATE LDX =-42 


,4 

i 


04CE D7R0 + IDA ERRX+42,1 

0 4CF 67R1 + ST A ERRX? + 4?,1 

04H0 D7B7 + LHA XRASTP+42,1 

0401 67B5 + STA XPAST+42,1 IJPDATF FROM LAS r MOTION 

0402 D7R8+ LDA XRASTP+43»1 

0403 6 7R6 + STA XRAST+43»1 

0404 0206+ I NX 6 

0405 020F + I NX 15 

0406 52CE+ JMP UPOATF+1 

0407 C389 + LOX =-3 FIND MOVFMENT THAT RESULTS IN MINIMUM 

0408 D7A9 + LDA S + 3,] Si OPE FRROR 

0409 8374+ ADD DSLOPF 

0 40 A 0140+ ARA 


04OB 67AE+ STA U+3,1 

OADC 0201+ I NX 1 

0 4DD 52D8+ JMP *-5 

04UF. 0540+ CLA START BUILDING COMMAND 

04OF 6377+ STA CWORD 

04FO 03AC+ LOA U+l 

04F1 F3AB+ CAA IJ 

04F2 52FR+ JMP TRYY TRY U,U+2 

04F3 0500+ NOP 

04F4 F3AD+ CAA U + 2 

04F5 52F1+ JMP BOTH 

04F6 0500+ MOP 

04F7 03A7+XSTEP LDA S+l STEP IN X DIRECTION IS BEST 

04F8 8374+ ADD DSLOPF 

04F9 6374+ STA DSLOPF 

04FA 0386+ LDA ERRX 

04FB 8390+ ADD DM 

04FC 6386+ STA ERRX 

04FD D379+ LOA XCOM 

04FE 8377+ ADD CWORD 

0 4FF 6377+ STA CWORD 

04F0 5308+ JMP COMMON 

04F1 D3A8+ROTH LOA S+2 STEP IN X AND Y BFST 

0 4F2 8374+ ADD DSLOPF 

04F3 6374+ STA DSLOPF 

04F4 D39B+ LOA ERRY 

04F5 83A5+ ADD DN 

04F6 639B+ STA ERRY 

04F7 D378+ LDA YCOM 

04F8 8377+ ADD CWOPD 

04F9 6377+ STA CWOPD 

04F A 52FA+ JMP XSTFP + 3 

04FB D3AB+TRYY LDA U 

04FC F3AD+ CAA U+2 

04FD 52F1+ JMP BOTH 

04FE 0500+ NOP 

0 4FF 03A6 + YSTEP LDA S STEP IN Y DIRECTION IS BEST 

0500 8374+ ADD DSLOPF 

0501 6374+ STA DSLOPE 

0502 D39B+ LDA ERRY 

0503 83A5+ ADD DM 

0504 639B+ STA ERRY 

0505 D378+ LDA YCOM 

0506 8377+ ADD CWORD 

0507 6377+ STA CWORD 

0508 D386+C0MM0N LDA ERRX HOW FAR FROM END POI NT NOWa 

0509 0140+ ARA 

050 A 636E+ STA TEMP 

050B D39B+ LDA ERRY 

050C 0140+ ABA 

050D 836E+ ADD TEMP 

050E F373+ CAA DR ARE WE CLOSERa 

050F 535A+ JMP END NO SO DONE 

0510 6373+ STA DR 

0511 C3DB+ LDX =-42 ARF X AND Y WITHIN LIMITSa 


051 2 

D7B0+L IMITS LDA FPPX+4?,1 


0513 

97B1 + 

SUB 

ERRXp+42, 1 


0514 

636E + 

STA 

TFMP 


0515 

05E0 + 

RFX 

C 


0516 

87R5 + 

ADD 

XRAST + 42 • 1 


0517 

67B7 + 

STA 

XRASTP + 4? » 1 


0518 

036E + 

LDA 

TEMP 


0519 

04B2 + 

SAN 

2 


051 A 

0540 + 

CLA 



051 B 

0481 + 

SKP 

1 


051 C 

D3B4 + 

LDA 

= -l 


05 1 D 

01C0 + 

ADC 



051 E 

87R6 + 

ADD 

XRAST+43, 1 


05 1 F 

67R8 + 

STA 

XRASTP+4 3 » 1 


05?0 

05C4 + 

RFX 

S 


05? 1 

D7BA + 

LDA 

DM+42, 1 


05?2 

0 4R1 + 

SAM 

1 


0 5?3 

0504 + 

SFX 

S 


0 5?4 

05E0 + 

REX i 

c 


05?5 

D7R7 + 

LDA : 

XRASTP+42,1 COMPARE NEW POS WITH MAX 


05?6 

87AE + 

ADD 

MX + 42, 1 


0 5?7 

63A9 + 

STA 

T 


05?8 

D7R8 + 

LDA 

XPASTP+43, 1 


05?9 

01C0 + 

ADC 



05?A 

87AF + 

ADD 

MX + 43 » 1 


05?8 

0431 + 

SMS 

1 


05?C 

0486 + 

SKP 

6 


05?D 

63AA + 

STA 

T+l 


05?E 

D3A9 + 

LDA 

T 


05?F 

05F0 + 

RFX 

C 


053 0 

0804 + 

ADI 

4 


0531 

D3AA + 

LDA 

T+l 


0532 

01C0 + 

ADC 



0533 

04B4 + 

SAN 

4 


0534 

D377+SMASH LDA CWORD REMOVE BAD MOTION FROM WORD 


0535 

P7B9 + 

ANA 

XMASK + 42 , 1 


0536 

6377 + 

STA 

CWORD 


0537 

5349 + 

JMP 

I NX 


0538 

05F0 + 

REX 

C 


0539 

D7R7 + 

LDA 

XRASTP+42,1 


053A 

0R3C + 

ADI 

60 


053B 

63A9 + 

STA 

T 


053C 

D7B8 + 

LDA 

XPASTP + 43 » 1 CHECK IF BELOW -15 (#4) 

* 

0530 

01C0 + 

ADC 


053E 

0437 + 

SMS 

7 


053F 

63AA + 

STA 

T+l NO MOTION IF JDST REENTERING PLOTTABLE AREA 


0540 

D3A9 + 

LDA 

T 


0 541 

05F0 + 

RFX 

C 


0542 

83B6 + 

ADD 

= -4 


0543 

D3AA + 

LDA 

T + l 


0544 

01C0 + 

ADC 



0545 

0901 + 

SRI 

1 


0546 

04B1 + 

SAN 

1 


0547 

0481 + 

SKP 

1 


0548 

5334 + 

JMP 

SMASH BFLOW SO NO MOTION 


0549 

0206 + 1 NX 

I N X 

6 


054 A 

020F + 

I N X 

15 


0 54B 

5312 + 

JMP 

LIMITS 


054C 

D377 + 

LDA 

CWORD DO COMMAND IF NON ZERO 


0540 

04A2 + 

SAZ 

2 


054E 

0820 + 

EDO 

2,0 


054F 

534F + 

JMP 

*-l 


0550 

0C82 + 

LPN 

2 


0551 

0 4 A 7 + 

SAZ 

7 


0552 

0901 + 

SB I 

1 


0553 

04A2 + 

SAZ 

2 


0554 

D3B4 + 

LDA 

= — 1 


0555 

0481 + 

SKP 

1 



0556 

OD01 + 

LDI 

1 

0557 

8378 + 

ADD 

XPOS 

0558 

637B + 

STA 

XPOS 

0559 

52CD + 

JMP 

UPDATE 

0 55 A 

C3DB+FND 

LDX 

= -42 

055B 

D7AA + 

LD A 

XPRDG+ 

0E5C 

67B2 + 

STA 

XPROG? 

055D 

D7AB + 

LD A 

XPROG+ 1 

0 5$E 

67B3 + 

STA 

XPR0G2 

055E 

0206 + 

TNX 

6 

0560 

020F + 

I NX 

15 

0 561 

535R + 

JMP 

END+1 

0562 

D37B + 

LDA 

XPOS 

0563 

937 A + 

SUB 

XMAX 

0564 

04B2 + 

SAN 

2 

0565 

D37B + 

LDA 

XPOS 

0566 

637A + 

STA 

XMAX 

0567 

5206 + 

D36D+WAITP 

JMP 

EXIT 

0568 

LDA 

. PFNW 

0569 

0901 + 

SRI 

1 

0 5 6 A 

04A1 + 

SA7 

1 

0 56R 

5369 + 

JMP 

#-2 

0 56C 

07C0 + 

+ # 

JMX 

0 


056D 
0 56E 
056F 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 
057A 
0578 

057C 

057E 

0580 

0582 
0584 

0586 

0587 

0588 
058A 
05RR 
058D 
058E 

0590 

0591 

0583 
0595 

0597 
0599 

0598 
059C 
0590 
059E 
05A0 
05A2 
05A4 
05A5 


M SAVE FINAL POSITION 
•?» 1 
I* ] 


3000+PENW DC $3000 

♦ TEMP DS 1 
+PPOS DS 1 
+ MEER DS 1 
+ PROG DS 1 
♦RASTER DS 1 
+DR DS 1 
♦DSLOPE DS 1 
+PLTX DS 1 
♦PEN DS 1 
+CWORD DS 1 

+ YCOM DS 1 
+ XCOM 

♦ XMAX 
+ XPOS 

♦ * X 

+ x 

♦ OX 

+XPROG 


DS 1 
DS 1 
DS 1 

VARIABLFS 
DS 2 
DS 2 
DS 2 


+ PXS DS 2 
♦MX DS 2 
♦ FRPX DS 1 
+ERRX2 DS 1 
♦XPR0G2 DS 2 
+ XDIR DS 1 
♦XRAST DS 2 
+XRASTP DS 2 
0003+XMASK DC $3 
♦DM DS 1 
+ * Y VARIABLFS 
♦Y DS 2 
+OY DS 2 
+YPROG DS 2 
♦PYS DS 2 
♦MY DS 2 
♦ERRY DS 1 
+ERRY2 DS 1 
+YPR0G2 DS 2 
+YDIR DS 1 
♦ YRAST DS 2 
+YRASTP DS 2 
000C+YMASK DC SC 
♦DN DS 1 


05A6 
0 5 A 9 
05AB 
05 AE 

0550 0074 
05R1 1?A5 
05R? 5400 
05R3 5000 
05R4 FFFF 
05P5 FFF2 
05R6 FFFC 
05R7 FFF5 
05R8 4000 
05R9 FFFD 
05RA FFF6 
05B8 2000 
05RC 0DR6 
05RD 0070 
05BE FFFC 
05BF 7FFF 
05C0 FFF4 
05C1 3000 
05C2 FFFE 
05C3 0000 
05C4 FFFB 
05C5 00FF 
05C6 1 27E 
05C7 2710 

0508 FFRD 

0509 0 0 1 F 
05CA 0200 
05CB 0186 
05CC 6000 
05CD 8000 
05CE FFFA 
05CF OFFF 

0500 0 C30 

0501 0003 

0502 0018 

0503 1706 
05D4 0 03F 

0505 07FF 

0506 195C 
05n7 195B 

0508 0007 

0509 0 OOF 
050 A COOO 
05DB FFD6 
050C FFF 1 
0500 4480 
05DE EF98 


+ -K- 


+ 5 

05 

+ T 

05 

+ IJ 

OS 

+ Q 

05 

+ 

ENO 


